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TOPIC A . 1 — MT/T 


A. DATA SET NAME: 

WODTAB - Module Table File 

B. CREATE!) BY: 

DBMTAB - Utility Module 

C. TYPE OF FILE: 

Non -Data Base File 

D. ORGANIZATION: 

Sequential 

E. KEY IDENTIFIER: 

Not Applicable 

F. RECORD LENGTF: 

Fixed, 36 bytes 

G. ELOCKING FACTOR: 

360 bytes per block 

H. PURPOSE: 

This file is an ordered table of transient module 
information. Each record contains the entry point name 
used by the NASIS proqrams fcr the call-by-name of 
transient modules, the maximum time (in milliseconds} 
that a module can occupy a reqion of the overlay, the 
relative offsets of the module for each region (1, 2, 
or 3 in number), some control bytes allowed for to be 
used at execution time, and the segment numbers for the 
module in each of the regions, MODTAB file is read at 
NASIS initialization. The first record of this file 
contains control information concerning the rest of the 
file: the number of remaining MODTAB records and the 

number of regions processed; these ccunts are the first 
and second full-words of the first record. The other 
records are defined in the next section* 

I. PL/I DECLARATION; 

DECLARE 

1 MOBATA, /* A MCDTAE EECOSC */ 
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2 MODULE CHAH f 8) , 

2 TIME FIXED BIN (31,0) , 
2 OFFSET (3) CHAB (4), 

2 X FIXED BIN (31,0) , 

2 Y CHAB (2) , 

2 W CHAB (1) , 

2 U CHAB (1) , 

2 SEGS CHAB (3) , 

2 END CHAB (11; 


/♦TBANSIENT MODULE NAME*/ 
/♦MAXIMUM PESIDENT TIME*/ 
/♦OFFSETS FOP 3 REGIONS*/ 
/♦SOME CCNTHOL BYTES */ 
/* FOB WONITOF USAGE */ 
/* AT EXECUTION TIME */ 
/* ALLOWED FOP HEBE */ 
/♦EYTE / SEGMENT NOMBEF*/ 
/♦PAD TO FUIL-WCBD */ 
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TOPIC A, 2 - H T/T 


A. DATA SET NAME: 

ESDTAB - Composite ESD Table File 

B. CREATED BY i 

EBTABLE - Utility Module 

C. TYPE OF FILE: 

Non-Data Base File 

D. ORGANIZATION: 

Sequential 

E. KEY IDENTIFIER: 

Not Applicable 

F. RECORD LENGTH: 

Fixed, 32 bytes 

G. BLOCKING FACTOR: 

Unblocked 

H. PURPOSE: 

This file is a sorted table of all external symbols 
within the NASIS load module’s composite ESD; it is 
generated by a stand-alone utility module DBTABLE. It 
is then processed by EEHTAB to generate the MODTAB 
file; ESDTAB is also used at execution time by the 

EBCALL module to perform the call-by-name function 
within NASIS. The first record in this file contains 
control information concerning the rest of the file: 2 
full-words cf zeroes (unused) r 4 bytes containino the 
total number of remaining ISITAB records, 4 bytes 

containing the number of segment 1 type ESDTAB records 
within the file, and 4 full-words of zeroes (unused). 
The other records are defined in the next section. 

I. PL/I DECLARATION: 

DECLARE 

1 ESEATA, /*AN ESDTAB RECORD */ 

2 NAME CHAR (8), /^EXTERNAL SYHBOI NAHE */ 

2 TYPE CHAR(1), /*TYPE OF SYMBOL */ 
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2 

OFFSET CHAB13), 

/♦BEX. OFFSET IB 

MODULE*/ 

2 

SEG# 

CHAP (1) , 

/♦SEGEENT NUMBER 

*/ 

2 

BATA 

CHAB (3) , 

/♦OTHER ESD DATA 

♦/ 

2 

FILL 

CHAB( 16) ; 

/♦ PAD (UNUSED) 

♦ / 
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TCHC B.1 - BATA BASE EXECUTIVE 

ft. DATA SET NAME: 

DBPL/I Diagnostics 

B. CREATED BY: 

DB Preprocessor Function 

C. TYPE OF FILE: 

(4) Table 

D. ORGANIZATION: 

Keyed list 

E. KEY IDENTIFIER (CONTROL FIELD) t 

Each diagnostic comment has a five-character 
identification key having the form: DBnnn, where nnn 

is a unique identification number. 

F. RECORD LENGTH: 

Variable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

EBPL/I Diagnostic Comments are generated into mainline 
source proqrams by the DB preprocessor function (see 
Section IV, Topic B.1 of the DWE). 

I. DB PL/I DIAGNOSTIC COMMENTS: 

DB0D1 INITIALIZATION COMPLETE. 

Informative - the % INCLUDE DB statement has been 
successfully processed. 
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DB00 2 * DB* FOUND WITHOUT ARGUMENT . If IS A RESERVED 

IDENTIFIES. 

Severe error - a DB preprocessor function reference 
has no parenthesized argument. 

DB0Q3 MISSING LEFT PARENTHESIS, 

Severe error - a DB preprocessor function reference 
does not begin with double left parentheses. 
Processing of this DB reference was abandoned because 
the closing right parenthesis would not be able to be 
found. 

DBOO 4 ARGUMENT ABANDONED. TCC MANY EEP1/I ERRORS. 

Error - more than four errors have been noted from 
one DB preprocessor function reference so it is being 
abandoned. This diagnostic may arise when the right 
parenthesis are missing at the end of the argument 
<PL/I passes the remainder of the source program to 
the DB function) . 

DBOO 5 EXTRANEOUS TEXT IGNORED, 

Error - if this message immediately follows DB009, 
then the statement has been processed properly but 
additional clause (s) ether than comments intervene 
before the semicolon. Verify that the statement has 
its own semicolon. If this message fellows a 
diagnostic other than DE009, it means merely that 
part of the statement was ignored. 

DBCO 6 MISSING SEMICOLON OR COLON. 'text’ 

Severe error - the riaht parenthesis at the end of a 
DB preprocessor function reference has been 
encountered unexpectedly. The label or statement 
•’text" shown was ignored. 

DBCO 7 MISSING SEMICOLON. *text» 

Severe error - the right parenthesis at the end of a 
DB preprocessor function reference has been 
encountered unexpectedly. The statement ’’text” shown 
was ignored. 

DBCO 9 DBPL/I STATEMENT: ’text; comments* 

Informative - a non-null statement has been found. 
The "text" shown is the statement as internally 
rearranged into a standard format without embedded 
comments for further analysis. The '’comments" shown 



are those extracted from the statement 


DE01 1 STATEMENT FOLLOWS FINISH. 

Severe error - the statement has been iqnored because 
it follows the DB ( (FINISH; ) ) reference. 

DB013 STATEMENT HAS 'n' HOSE LEFT PARENTHESES THAN RIGHT 
PARENTHESES. 

Severe error - the statement semicolon has been found 
but the parentheses are unbalanced. The statement 
was iqnored. 

DBC1 5 UNKNOWN STATEMENT KEYWORD: ♦word*. 

Severe error - the ’word* shown is not the first word 
of a DBPL/I statement. The statement was iqnored. 

DB017 INVALID LISTERSCB ACTION. 

Severe error - an CN LISTERRCB statement was iqnored 
because its action clause was neither SYSTEM nor GO 
TO. 

DB019 INVALID ERRCRFILE. 

Severe error - an ON ERRORFILE statement was iqnored 
because its filename was longer than eight characters 
or was not terminated by a right parenthesis. 

DEC2 1 INVALID ON CONDITION. 

Severe error - an ON statement was iqnored because it 
was neither ON LISTERROR nor CN ERRORFILE. These are 
the only ON statements recognized by the DB 
preprocessor function. 

DBC2 3 MISSING LIST POINTER. 

A GET LIST or POT LIST statement was ionored because 
it did not contain a reauired parenthesized list 
pointer. 

DB02S INVALID GET LIST CLAUSE. 

Severe error - a GET LIST statement was ignored 

because it did not contain either a KEY (0) or a KEY 
INTO clause, 

DBC26 INVALID POT LIST CLAUSE. 

Severe error - a PUT LIST statement was ignored 
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because it did not contain required INTERNAL KEY EPOS 
clauses, 

DB02 7 INVALID FILE. 

Severe error - a statement bavinq a FILE clause was 
ignored because its filename was longer than eiqht 
characters or was rot terminated by a right 
parenthesis, 

DB02 8 MISSING LIST. 

Severe error - a SET statement was ignored because it 
did not contain a required LIST clause, 

DBC2 9 MISSING FILE. 

Severe error - a statement that should have a FILE 
clause was iqnored because it did not have one. 

DB03 0 MISSING SIZE. 

Severe error - a SET LIST statement was iqnored 
because it did not contain a required SIZE clause. 

DBQ3 1 INVALID ON ACTION. 

Severe error - an ON EPRORFILE statement was ignored 
because its action clause was neither SYSTEM nor GO 
TO, 

DB03 2 MISSING *LIST» OP * KEY ' CLAUSE. 

Severe error ~ a GET FILE statement was ignored 
because it did not contain either a LIST or a KEY 
clause. 

DB03 3 HISSING FIELD CLAUSE. 

Severe error - a statement that should have a FIELD 
clause was ignored because it did not have cne. 

DBG3 *1 MISSING * LIKE LIST*. 

Severe error - a SET IIST SIZE statement was iqnored 
because it did not contain a required LIKE LIST 
clause. 

DB03 5 MISSING INTO. 

Severe error - a GET FIELD statement was ignored 
because it did not contain a required INTO clause. 
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DB03 7 MISSING FBOM. 

Severe error - a POT cr REPUT statement was ignored 
because it did not contain a required FBOM clause. 

DB03 9 MOBE ITEMS THAN FIELDS. 

Severe error - excess INTO cr FBOM items in a GET, 
POT or BEPOT FIELD statement were ignored. 

DB04 1 MOBE FIELDS THAN ITEMS. 

Severe error - excess fieldnames in a GET, POT or 
BEPOT FIELD statement were ignored because the INTO 
or FBOM clause has too few items. 

DB04 3 INVALID OPEN CLAUSE. 

Severe error - an OPEN statement has been abandoned 
because one of its sutstatements has an invalid or 
out of order FILE, TITLE, access or function 

clause. 

DB04 5 INVALID READ OPTION (S), 

Severe error - a READ statement has been ignored 
because it has an invalid cr out of order 

file-positioning or NOLOCK option. 

DB04 7 INVALID CLOSE SYNTAX. 

Severe error - a CLOSE statement has been abandoned 
because one of its sufcstateraents has an invalid or 
out of order FILE or ERASE clause. 

DBC49 MISSING FBOM. 

Severe error - a NBITE statement has been ignored 
because it did not contain a required FBOM clause. 

DB05 1 MISSING KEYFBOM, 

Severe error - a LOCATE statement has been ignored 
because it did not contain a required KEYFROM 
clause. 

DB053 LIST OPTION MISSING. 

Severe error - a FREE statement has been iqnored 
because it did not contain a required LIST option. 

DB05 5 INVALID LIST. 
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Severe error - a FREE LIST statement has been iqnored 
because it did not contain a parenthesised set of 
list-pointers. 

DBC57 ’ filename* FILE HAS STATEMENT DIAGNOSTIC (S) . 

Severe error - the FINISH statement has not generated 
a Mainline File Control Elcck declaration (see 
Section III, Topic B.4 of the DBB) for the ’filename* 
shown because errors in its use have been previously 
detected. Note that a missing MFCB declaration will 
yield "undefined qualified name" diagnostics from the 
PL/I compiler fcr correct DBPX/I statements using the 
* filename*. 

DBC59 * filename* FILE HAS NCN-INPUT USE(S). 

Informative - the ’filename' shown has a use that may 
conflict with the INPUT file function attribute. 

DE06 1 * filename* FILE HAS NON-OUTpOT USE (S) . 

Informative - the ’filename* shown has a use that lav 
conflict with the OUTPUT file function attribute. 

DBC6 3 * filename* FILE HAS NON-UPDATE USE(S), 

Informative - the 'filename* shown has a use that may 
conflict with the UPDATE file function attribute. 

DBG6 5 'filename* FILE REOUIRES UPDATE ATTRIBUTE. 

Informative - the 'filename* shown has a use that 
requires the UPDATE file function attribute, hut this 
compilation does not contain a valid OPEN, *, UPDATE 
statement for the 'filename*. 

DBC67 * n* DBPL/I ERRORS. 

Informative - the FINISH statement has been processed 
and * N ' errors were previously detected. The 
programmer should find and analyze the *N* DBPL/I 
diagnostic comments. 
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TCEC B.2 - DATA EASE EXECUTIVE 


A. DATA SET NAME: 

DBPt/I - DBPAC Interface 

B. CREATED BY: 

DB Preprocessor Function 

C. TYPE OF FILE: 

(4) Table 

D. ORGANIZATION: 

Documentary Table 

E« KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The DBPL/I - DBPAC Interface (see Table 1) specifies 
the NFCB. ST ATE BE NT .OPERATION code, DBEAC entry point 
name, and argument types and order for the various 
DBPL/I statments and substatements. Thus, it serves to 
specify for the DB preprocessor function (see Section 
IV, Topic B • 1 of the DUB) what HFCB assignments and 
CALI statements are to be generated for each DBPL/I 
statement. Conversely, it specifies for DBPAC (see 
Sectiion IV, Topic B.2 of the EV1B) what entry points 
will be entered and what and how information will be 
available at execution time for the performance of the 
various statement actions. 

The various entry points and their argument types are 
declared by source code in SOURCE. IISFMAC member 
DBTEXT. Any program that includes the DB preprocessor 

also is given DBTEXT by an INCLUDE statement in DB. 
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TABIE 1. 


ROUTINE 

OPTION 

OPERATION 

ENTRypoiNT 

ARG-1 

&RG 

SS CIOSE 


00010000 

EEPACFV 

f 


SS CLOSE 

ERASE 

00011000 

DBFACFV 

f 


SE GET 

FIELD 

01 1COOOO 

EBPACFV 

f 

V 

SE GET 

INTERNAL FLD 

G11C010G 

EBPACFV 

f 

r 

GET 

INDEX KEY 

01100001 

EBPACFV 

f 

V 

GET 

KEY SET 

01 ICOOOO 

EBFACFF 

p 

V 

GET 

SUEFILE KEY 






SET 

01010001 

EEPACFP 

f 

p 

GET 

LIST SET 

01010000 

EBFACFF 

f 

P 

GET 

INDEX LIST 






SET 

01010001 

EEPACFP 

f 

P 

GET 

SUBFILE LIST 






SET 

010 10010 

EEPACFP 

f 

P 

GET 

RECORD 

OIOCOOOO 

EEPSCF5 

f 

r 

LOCATE 


11010000 

EBPACFV 

f 

V 

LOCATE 

SUEFILE 

11010010 

EEPACFV 

f 


SS OPEN 


00100000 

EBPACFV 

f 


SE POT 

FIELD 

10010000 

EBPACFV 

f 

V 

READ 

KEY 

11100000 

EBPACFV 

f 

V 

READ 

KEY NOLOCK 

111C0100 

EBPACFV 

f 

V 

BEAD 

INDEX KEY 

11100101 

EEPACFV 

f 

V 

BEAD 

SUEFILE KEY 

11 1C0010 

EBPACFV 

f 

V 

BEAD 

SUBFILE KEY 






NCIOCK 

11100 110 

EEPACFV 

f 

V 

READ 

PER SUEFILE 

11 1C1010 

EBPACFV 

f 

V 

READ 

PER SUEFILE 






NCLOCK 

11 10 1110 

EBPACFV 

£ 


READ 

LIST 

111C1000 

EBFACFF* 

f 

p 

READ 

LIST NOLOCK 

11 101100 

DEPACFP* 

f 

p 

READ 

seq. 

1 1 1 10000 

DBPACFV 

f 


READ 

seq. NOLOCK 

11110100 

DBPACFV 

f 


READ 

INDEX seq. 

11110101 

DBPACFV 

f 


READ 

SUEFILE seq. 

11110010 

EEPACFV 

f 


READ 

SUEFILE seq. 






NCLOCK 

11110110 

EEPACFV 

f 


READ 

BACK 

11111000 

DBPACFV 

f 


READ 

BACK NOLOCK 

11111100 

EBPACFV 

f 


READ 

INDEX BACK 

11111101 

DBPACFV 

f 


READ 

SUEFILE BACK 

11111101 

EBPACFV 

f 


READ 

SUEFILE BACK 






NOLOCK 

1111111G 

EEPACFV 

f 


SE R EPUT 

FIELD 

10100000 

EBPACFV 

f 

V 

UNLOCK 


11OCOQ0O 

EEPACFV 

f 


UNLOCK 

SUEFILE 

11000010 

DBPACFV 

f 


WRITE 


10000000 

EEPACFP 

f 

r 
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SS = substateaent 
SE = statement element 
f = filename 
p - list pointer 
r = record work area 
v = character string 

♦For READ LIST <NOLOCK> »ith the KET (nn) clause, use 
entry point DEPACPF and a fullword subscript value as 
the third argument. 
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TOPIC B.3 - DATA EASE EXECUTIVE 


A. DATA SET MAKE: 

DBPAC Error Codes 

B. CREATED BY: 

NDBPAC posts in HFCB . ERRCR . CNCCDE • 

C. TYPE OF FILE: 

(4) Table 

D. ORGANIZATION: 

Sequential 

E. KEY IDENTIFIER (CONTROL FIELD): 

Error-code 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H« PURPOSE: 

Nhen any programs are written to interface with the 
NASIS system, they usually involve some type of 
interaction with the data base. 

The data base executive was written with the intent of 
handling all such data base interfaces with the users 
of the NASIS system. 

This is handled by the user writing a PL/I program and 
in it using the DBPL/I language extension to handle all 
of the input/output operations to the data base. 

The data base executive has complete error detection 
and notification facilities built into it. Therefore, 
when the user’s program is running, the data base 
executive will attempt to detect any and all errors 
which occur and communicate these errors back to the 
user’s program. 

The method of performing this communication of errors 
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is through the use of the data base executive error 
codes* These are fixed /binary numbers which have 
unique meanings and are transmitted hack to the user's 
program using the HFCB (mainline file control block) as 
a vehicle of communication. The various error codes 
which exist and their meanings are discussed in the 
following table: 

ERROR 

CODE EXPLANATION OF ERROR 


Cl Illegal attempt to imply cpen. 

03 Tried to imply an cpen on a new file-name without 

the use of an open command. 

20 Trying to open a file when the header descriptor's 
DESCOK switch is off. 

21 Trying to open for OUTPUT or UPDATE and the file 
is not the anchor or an associate or a descriptor 
file. 

22 End-of list (READ LIST Statement). 

23 Number of files exceeds the number allowed in the 
fiFCB file array. 

25 The user is not the owner of the file, but he is 
attempting an open for UPDATE or OUTPUT. 

26 Attempted open of the file for INPUT, the DATA 
switch indicates no data. 

27 Open attempted but its function was not INPUT, 
OUTPUT, or UPDATE. 

28 Open issued for UPDATE or OUTPUT was prohibited by 
the HNTNING, HNTNAfilE, or the DATA switch. 

29 Operation code unsupported. 

30 Operation code error. 

31 Key field failed general validation (READ KEY or 
LOCATE) . 

32 Key field failed specific validation (READ KEY or 
LOCATE) . 

34 Erase attempted on CLOSE but the file is not open 
for UPDATE. 
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35 Erase attempted on descriptor file other than the 
anchor* 

36 The GET FIELD operation attempted hut the last 
record operation was a LOCATE, 

38 The GET FIELD operation attempted but there is no 
current record* 

39 GET FECOBD operation attempted but the user is not 
the owner. 

40 GET LIST attempted* hut file is not inverted 
index. 

41 Key is null (BEAD KEY or LOCATE). 

42 Key sequence error (LOCATE sequential). 

43 Duplicate key error (LOCATE direct) . 

44 Not an OUTPUT file for WRITE. 

46 No current record (PUT or BEPUT) , 

47 Current record net locked (FUT or FEFUT) . 

49 PUT or FEPUT to INPCT file. 

50 FEPUT to non-UPCATE file. 

51 FEPUT follow in q LOCATE. 

52 GET operation (field is not in descriptor 
table) . 

53 Field failed qeneral validation (PUT or FEPUT), 

54 Field failed special validation (PUT or FEPUT) . 

55 Null value to be PUT. 

56 Bit field too long (PUT or BEPUT) . 

57 PUT to non-null bit switch. 

58 PUT to non-null fixed lenqth field. 

59 PUT to non-null variable lenqth (single element) 
field, 

61 Field would make record too long (PUT). 
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62 Field weald make record toe lonq (REPOT) . 

63 Element would make record too lenq (PUT) . 

64 Element would make record tco lenq (BEPUT). 

65 Element field too lonq (PUT or BEPUT) » 

66 Too many (variable) elements (PUT). 

67 No GET before BEPUT (variable elements) . 

68 No qood GET before REPUT (variable elements). 

69 Undefined field (PUT or BEPUT) . 

70 BEPUT tc never PIT (nail) field (record not 
found) . 

71 Too many (fixed) elements (PUT) . 

72 (Fixed) element would make record too lonq 

(PUT) . 

73 No GET before BEPUT (fixed elements). 

74 No good GET before BEPUT (fixed elements), 

75 Field tco long (POT or PEPUT) . 

76 Key would make cress reference record too long 

(PUT or BEPUT) . 

77 Cross reference not found cn record. 

78 Target field 'actual* length checking indicates 
truncation. 

79 Command system tryinq to open someone elses STATIC 
or TPNSCT data bases for UPEATE or OUTPUT. 

80 Command system opening a data base (other than 
STATIC or TRNSCT) fer either OUTPUT or UPDATE. 

83 GET KEY incompatible with list. 

84 GET KEY sequence error. 


85 

Field 

damaqe* 

length 

less than 2 

found . 

Data 

Base 

86 

Field 

damage. 

length 

beyond reclen 

found. 

Data 

Base 
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87 

Field length not equal tc 2 plus a multiple of 
element length found. Data Base damage. 

88 

Element length less than 1 
damage. 

found. 

Data Base 

89 

Element length beyond field 
Base damage. 

length 

found. Data 

90 

Invalid DB2 header descriptor 
damage. 

, DP 1 descriptor or 

91 

Field descriptor reclen less than 78. 
damage. 

Descriptor 

92 

Field length less than 

Descriptor damage. 

2 in 

descriptor. 

93 

Field length beyond reclen in 

Descriptor damage. 

descriptor. 

94 

VA1IBARG longer than 50 bytes 
Descriptor damage. 

would be truncated. 

95 

SECURITY field length invalid, 
multiple of 8. 

Should 

be 2 plus a 

96 

No descriptor found for hey 
damage. 

field. 

Descriptor 

97 

Invalid field length in index 
base damage. 

record 

found. Data 

98 

Record missing from index 
damage. 

region. 

Data base 

99 

End of data. 


(ISAS) 

104 

Keys equal - sequence error. 


(TSAH+100) 

108 

Key not found. 


(ISAH+10G) 

112 

Keys out of sequence. 


(ISAH+100) 

115 

Keys do not coincide. 


(ISAH + 100) 

120 

Keys coincide. 


(ISAH+100) 

124 

Invalid retrieval address. 


(ISAH+100) 

128 

Invalid record length. 


(ISAM+100) 


Position past end of data set. 


131 


(ISAH+100) 
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136 Position before start of data set. (ISAM+100) 

140 Exceed maximum number of overflow 

pages. (ISAM+100) 

144 Exceed maximum size of shared data set. (ISAM+100) 

145 No data set-name found which is like the qiven 
one. (ISAM) 

200 Attempt to (POT or EEPDT) null pattern. 

201 Attempt to (POT or REPUT) to readonly field, 

202 Undefined subfile or indexed field (BEAD, LOCATE, 
or UNLOCK) . 

203 Not an indexed field. 

204 Not a subfile <control> field. 

205 LOCATE to INPUT file. 

206 No current anchor record (LOCATE SUEFILE) . 

207 Anchor record not lccked (LOCATE SUEFILE) . 

208 No current sufcrecord (BEAD PEE SUEFILE) . 

209 Anchor record not current (delete subrecord) . 

210 The file is not open (to pest FLDTAB) • 

211 Descriptor damage detected while posting FLDTAB. 

212 Anchor record not lecked (delete subrecord). 

213 Anchor record not parent of subrecord (delete 
subrecord) . 

214 Subrecord id not found in control field (delete 
subrecord) . 

215 Duplicate fixed length element (PUT or REPUT). 

216 Duplicate varying length element (PUT or REPUT) * 

217 LOCATE SUBFILE not done because 131071 regions 
used, 

218 NAMEFLD field length invalid. Should be 2 plus a 
multiple of 9. 
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219 GET superfield reuuires current subfile record. 

220 BSECTYCE field length invalid. Should be 2 plus a 
multiple of 9, 

221 Non-owner attempted to open associate havinq 
record level security. 

222 Anchor dummy descriptor not found for associate or 
subfile field. Descriptor damage. 
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TCHC 8.4 - DATA EASE EXECUTIVE 


A. DATA SET NAHF: 

Hainline File Control Blcck 

B. CHEATED BY: 

Declared by EE Preprocessor Function. 

C. TYPE OF FIIE: 

(4) Table 

D. ORGANIZATION: 

linear structure followed by an array of linear 
structures. 

E. KEY IDENTIFIER (COMTEOI FIELD): 

iithin DEPAC the mainline file control block is known 
as a parameter named HFCE . Outside DEPAC each mainline 
file control block is an independent external 

controlled structure whose name is the DBPI/I file name 
(PLEX in the retrieval system). For this reason, file 
names must not conflict with other external name 
system. This file name is not padded with dollar signs 
the wav a file title must be. The file name is passed 
as an argument in CALI statements to DEPAC and thus 
becomes the HFCB parameter. 

F. RECORD LENGTH: 

1324 bytes (hexadecimal 52C) 

This is the length of the whole control block including 
the necessary dope vectors and a thirty-seven element 
array allowing up to thirty-seven data sets in a 
dataplex. The number of elements in the array may be 
adjusted, if necessary: - the control block size will 

be adjusted by 24 bytes per element and the 
HFCB. FILE. APB_SIZE field must be suitably initialized 
tut no changes are necessary in DBPAC or in other 
HFCB'S. 

G. BLOCKING FACTOR: 

Not Applicable 
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H. PURPOSE: 

The HFCB control block is usecJ for communication 
between mainline proqrams and IEPAC. The declaration 
is generated by the DE preprocessor fnnction with 
suitable initial value attributes. For DBPL/I 
statements in the mainline, the DE preprocessor 
function generates statements that post fields in the 
HFCB , such as the operation code. At execution time, 
the posted HFCB is passed as an argument to DBPAC. 
DBPAC performs the operation indicated in the HFCB, 
making reference to other fields in the MFCB as 
necessary and posting fields in the HFCB, such as 
HFCB. ERROR. ONCODE, which may subsequently be referenced 
in the mainline. 

X. PL/I DECLARATION: 

DECLARE 

1 HFCB, /* HA INLINE FIIE CCNTRCI BLOCK*/ 


2 INITIALIZED EIT (2), /*00: NEVER INITIALIZED */ 

/*10: IHITI AIIZEB, CLOSED */ 

/*11: INITIALIZED, OPENED */ 

2 FILLER_1 EIT (6) , /*NOTUSEE */ 

2 STATEMENT, /*OR FUNCTION */ 

3 OPERATION EIT (8) , /*CODE */ 

3 ONFIELD CHAP (8) , /*FIELD NAME */ 

2 FILLER_2 CHAR (3), /*NOT USED */ 

2 ERBOR, 

3 SYSTEM BIT ( 1) , /*1: STANDARD DBPAC ACTION */ 

/*0: USER ERROR BOUTINE */ 

3 FILLER_3 BIT (7) , /*NOT USED */ 

3 oncode“fixee BINARY, 

3 BOUTINE LABEL, /*USER*S */ 

3 ONRETUBN LABEL, /*IN MAINLINE */ 

2 FILE, 

3 ONFILE CHAB (8) , /*FI1E TITLE */ 

3 OLFILE CHAB (8), /*TO SAVE FILE TITLE IF DYNAM*/ 

3 ONNEP_ID CHAB (8), /*OWNEB OF THE FILE */ 

3 DSNAHE CHAR*35), /*DATA SET NAME */ 

3 ATTRIBUTES 

4 ACCESS BIT (1) , /*0: DIRECT */ 

/*1: SECUENTIAl */ 

4 SAVE_FUNC BIT (2) , /*TO SAVE FUNCTION IF DYNAMIC*/ 

4 FILLER_4 BIT (3) , /*NOT USED */ 

4 FUNCTION EIT (2) , /*10: INPUT */ 

/*01: OUTPUT */ 

/♦11s UPDATE */ 

3 CURRENT_FILE FIXED BINARY,/*SUESCRIPT IN FILE. ARRAY*/ 
3 LAST FILE FIXED BINARY, 

/♦NUMBER OF FILES IN FILEPLEX OR DATAPLEX*/ 
3 ARR_SIZE FIXED BINARY (15) , /*D£CLABED ARRAY SIZE */ 
3 ARRAY <37) , 
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4 FILENAME CHAR <S) r 

4 DTP POINTER, /♦DESCRIPTOR TAEIE ADDRESS */ 

4 FCBP POINTER, /*FILE CCNTBCI BLOCK ADDRESS */ 


4 KYC FIXED BINARY (15) , /♦SUBSCRIPT OF KEY FI1ID */ 

/♦DESCRIPTOR IS ALWAYS =1, */ 

4 SWITCHES, 

5 CURRENT BIT(1) , 

5 LOCKED EIT<1), 

5 WRITE BIT { 1) , /*FORCE SPITE */ 

5 REWRITE BIT { 1 1 , /*FORCE REWRITE ♦/ 

5 ABSENT BIT { 1 ) , /*NULl CR SECOFED RECORD */ 

5 OPENED BIT ( 1) , /♦THE FILE IS CPEN ♦/ 

5 FILLER 5 EIT (2) , /*NOT USED ♦/ 

4 FILLER_6 CHAR(1), /♦NOT USED ♦/ 

4 RECORDCT FIXED BINARY (151 ; /♦ # OF USABLE DESC. ♦/ 


DETAIL NOTES: 

INITIALIZED - used entirely within DBPAC . 

STATEftENT. OPERATION - see Section III, Topic E. 2 of the 
DWB for the codes that are posted here by the DB 
preprocessor function, 

STATEHENT, ONFIELD - posted by the DB preprocessor 
function, 

ERROR. SYSTEH - posted by the DB preprocessor 
function . 

ERROR, ONCODE - posted by DBPAC when an error is 
detected but not reset for successful 

operations* See Section III, Topic B.3 of the DWB 
for the DBPAC Error Codes. 


ERROR. ROUTINE 
function. 

posted 

by 

the 

DB 

preprocessor 

ERROR. ONRETURN - 
detected. 

posted 

by 

DBPAC 

when 

an error is 


FILE. ONFItE - posted by the DB preprocessor function. 
When the first character is not a pound sign 
indicating a descriptor file, DBPAC shifts the 
value one character to the right and posts a 
leading black character. 

FILE. OLFILE - used within DEPAC to detect need for 
reinitialization. 

FILE. CWNEF_ID - used within DBPAC. 

FILE. DSNAHE - used within DBPAC. 
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FILE. ATTRIBUTES. ACCESS and FONCTIOH - posted by either 
the DB preprocessor function or, when in default# 
by DEPAC. 

FILE. SAVE_FtJHC - used within DEPAC. 

FILE. C OFF ENT_FILE - used within DBPAC. 

FILE.1AST_FII,E - used within DBPAC. 

FILE. ARR_SIZE - set by the DB preprocessor function 
indicating the dimension of the FILE. ARRAY. 

FILE. ARRAY - this array is used within DBPAC. Each 
element of the array is a linear structure of 
fields relating to a data set. When the mainline 
is accessing a descriptor region or an inverted 
index# only the first element is used. Otherwise, 
the first element relates to the anchor data set 
and subsequent elements relate to associated and 
subfile and inverted index data sets. 

FILE. ARRAY. FILENAME - the "title” of the data set 
having a leading blank cr pound sign and a 
trailing blank cr suffix. 

FILE. APS AY. DTP - the address of the (dynamically 
allocated) descriptor table for this data set. 

FILE. ARRAY. FCBP - the address of the (dynamically 
allocated) file control block for this data set. 

FILE. ARRAY. KYC - the subscript of the key field 
descriptor in the descriptor table array is alwavs 

1 . 

FILE. ARRAY. KYC(1) - one (the anchor) plus the number of 
associate data sets. 

FILE. ARRAY. KYC{2) - KYC(1) plus the number of subfile 
data sets. 

FILE. ARRAY. SWITCHES - switches used fcy DBPAC for the 
status of the data set. 

FILE. ARRAY. BECOBDCT - the number of descriptors in the 
descriptor table array. This number does not 
include descriptors of fields a given user does 
not have field security clearance to access. 
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TCE C B.5 - DATA ESSE EXECUTIVE 


A. DATA SET NAME: 

List SCB (Set Control Block) Structure 

B. CHEATED BY: 

EBOSET, Set Management 

C. TYPE OF FILE: 

(4) Table 

D. ORGANIZATION: 
linear Structure 

E. KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H . PURPOSE: 

The SCB structure describes a particular set (or list) 
of data keys and points to the next SCB in the system 
chain (NOLL if none exists) • 

I. PL/I DECLARATION: 


DEa ARE 

1 SCB BASED (SCB_PNTR) , 

3 NXT SCB POINTER, 

3 PARM^LIST, 

5 FLD_NAME CHAP (8), 
5 CON~RTN CHAR (8) , 
5 KEY~LNT BIN (15) , 
3 FEY_REC BIN ( 1 5) , 

3 TOTJKEY BIN (15); 


/♦SET CONTROL BLOCK */ 
/♦POINTER TO NEXT SCB ♦/ 
/♦ATTRIBUTES OF KEYS ♦/ 
/♦ FIELD NAME ♦/ 
/♦ FORMATTING ROUTINE ♦/ 
/♦ LENGTH IN LIST ♦/ 
/♦NUMBER KEYS IN BUFFER*/ 
/♦TOTAL NUMBER OF KEYS */ 
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Tone B . 6 - DATA BASE EXECOTIYE 


A. DATA SET NAME: 

LISTERR - list Error Control Blocfc 

B. CREATED BY: 

Allocated by DBMTT, 

Error fields are posted by DB preprocessor and DBOSET. 
list chain anchors are initialized by DBMTT and posted 
by DBOSET. 

C. TYPE OF FILE: 


(4) Table 

D. ORGANIZATION: 


Simple structure 

E. KEY IDENTIFIER {CONTROL FIELD) : 
Not applicable 

F. RECORD LENGTH : 


68 bytes {20 bytes data + 48 bytes Pl/I dope vectors, 
etc.) 

G. BLOCKING FACTOR: 

Not applicable 


H. FUPPOSE: 

The list error control bloch holds the list segment 
chain anchors. (The chain used by the FREE all LISTs 
statement.) It also is the point of communication 
between DBLIST and mainline programs for list error 
handling when no MFCB is involved in the operation. 
(When an HFCE is involved in a list error situation, 
the MFCB is used for error indication, etc.) 


I. PL/I DECLARATION: 
DECL ARE 

1 IISTEBR CTL EXT, 

3 ERROR, 

5 SYSTEM BIT { 1) 


/♦COMMON CCNTBOI BLOCK */ 


*/ 


/♦I; SYSTEM ACTION 
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INIT^I'E), /*0: GC TO USEE ERROR BTSP */ 

5 ONCODE FIXED BIN (15) /*1: INVALID LIST OPERATION */ 

I NIT (0 ) r /*2-i INCOMPATIBLE LISTS */ 

/* GET LIST KEY SET ERRORS: */ 
/*4 : NULL INPUT LIST */ 

/*5: NC GET KEY SINCE RESET */ 
/*6: INCOMPATIBLE LISTS */ 

/* GET IIST KEY INTO ERROR: */ 
/*7: KEY SEOUENCE ERROR */ 

/*fl; TRUNC, TARGET TOC SHORT*/ 
/* SET LIST LIKE LIST ERROR:*/ 
/*9t INVALID SIZE */ 

/* POT LIST KEY FROM ERRORS:*/ 
/*1C: NULL TARGET LIST */ 

/*1 1: BRONG LENGTH KEY VALUE*/ 
/*12: KEY SEQUENCE ERROR */ 
5 ROUTINE LABEL /*USER ERROR RTNE AEDRESS */ 

3 PTR , /*NntL: NO CHAIN */ 

/♦ALLOCATOR MUST INITIALIZE */ 
5 (FIRST, /*FORWARD CHAIN ANCHOR */ 

LAST) PTR; /*BACKRARD CHAIN ANCHOR */ 
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TOPIC B.7 - DATA EASE EXECUTIVE 

A. DATA SET NAME: 

Data Base Descriptor File, ownerid. data-base, 
data-base# 

for example: 

BASIS. ASRDI$. ASFDI$# 

where: 


’'ownerid” is the 1-8 character CS identification of the 
owner of the dataplex, 

"data-base” is the 6 character data base name with the 
dollar sign character used for paddincr. 

B. CHEATED EY: 

DBEDIT - the Descriptor Editor program 

C. TYPE OF FILE: 

(6) Data Base Descriptor file 

D. ORGANIZATION 

ISAM - Indexed Sequential Access Method, organized in 
one or mere regions of contiguous records; one reqion 
for the anchor data set descriptors and, as necessary, 
a region for each associate, subfile and inverted index 
dataset’s descriptors. 

Records have the varying length universal record format 
(UBF) built by DBPAC, 

E. KEY IDENTIFIER (CONTROL FIELD) : 

The ISAM hey length is 15 bytes consisting of: 

7 character region tame and 8 character FIDNAME. 

A DBPL/I descriptor FILE is a contiguous set of records 
having the same region name. The DBPL/I FILE shall be 
OPENed using an 8 character TITLE value consisting of: 

1 pound sign character (#) (signifying descriptor 
file). 

6 character data base name with the dollar sign 



PAGE 32 


character ($) used fcr padding. 
1 suffix character. 


The suffix character shall be fro® the following 
ranges; 


blanh anchor file descriptors 

1-9 associate file descriptors 

Z-Q subfile descriptors 

A-P inverted index descriptors 

EBPAC uses the data base name and suffix to 
automatically generate the reqicn name value for the 
keys. 


The DBPL/I JTE7 value is only the 8 character FLDNAWE 
(name of the field being described) that completes the 
ISAM key value. 


F. RECORD LENGTH; 

34 bytes minimum for a file descriptor record. 

78 bytes minimum for a field descriptor record* 

G. BLOCKING FACTORS: 

One 4096 byte page (block) will hold about 40 average 
descriptors; enough for a few regions for a simple data 
base. For a complicated data base with many data sets, 
fields, secondary fields, and security codes, three or 
more pages (blocks) may be required. 

H. PURPOSE; 

A data base descriptor file describes a data base in 
terms of the datasets, records, and fields the data 
base is composed cf, and indicates their 
interrelationships. A data base descriptor file is 
created and maintained or modified by NDBEDIT, the 
descriptor editor, which is a system service program. 
Normally, a data base analyst runs NDBEDIT 
conversationally, NDBEDIT is responsible fcr producing 
a consistent and complete descriptor file according to 
this specification. 

Then the data base may be loaded, maintained, 
retrieved, etc. by programs using NDBFAC for data base 
access, NDEPAC, when CPENing a data base, reads the 
descriptor file and from it builds a table that qoverns 
its further actions. 


I 


SAMPLE DATA BASE: 
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A sample data base is used to illustrate in detail how 
the descriptors shall describe a complicated data base. 
The sample data base consists of eight datasets related 
as shown in Figure 1. 

The record layout in Figure 2 shows all eiqht record 
layouts in the sample data base for reference in the 
following sections of this specification. 

J. DESCBIPT01 REGIONS: 

The sample descriptor file consists of eiqht regions 
(having the suffixes • * , t,Z,Y, A,B,C,D) corresponding 
to the eiqht data sets in the sample data base. (Of 
course ISAM alphabetizes them * * ,A,B,C,D,Y,Z, 1. ) 

Each descriptor region has at least one file descriptor 
record and two field descriptor records (key and 
BECLEM . 

Dummy descriptor records are required in anchor regions 
when the data base has asscciate and/or subfile 
datasets. They are also required in associate regions 
when subfile (s) are controlled from the associate 
dataset. 

Figure 3 tabulates all the file, field, and dummy 
descriptors required to describe the sample data 
base, 

K. FILE DESCRIPTOB BEC0FD5 

The file descriptor record describes the dataset as a 
whole. It is uniquely identified by having a key 
(FLDNAME) of 8 blanks. It has the field values shown 
below. See Figure 4 for the field values of the sample 
descriptor file. All values should be posted except 
that if BECSECFP is NULL, 8SECTYCD does not apply. The 
MXBECLEN field will appear if the DBBECt utility 
program has processed this file. 


FIELD 

VALUE 

CCHMENTS 

F LDNAflE 

8 blanks 

DEPI/I key 

DESCOK 

OFF 

incomplete descriptors. 


Oti 

descriptors are complete. 

FILETYPE 

ANCHOR 

ASSOCIATE 

SUBFILE 

INDEX 

type of data set being described 
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DBSCRCT 

numeric 

number of field descriptors in 
this region. (The file 
descriptor is not to be 
counted. ) 

ESELNGTH 

numeric 

length' in bvtes of fixed portion 
of records including RECLEN, key 
and fixed primary fields. For a 
spanned index, this includes the 
key suffix byte. 

SPANNED 

OFF 

ordinary records. 


ON 

spanned records with internally 
suffixed keys. 

DATA 

OFF 

nc data on file yet. 


ON 

retrieval is possible. 

HNTNABLE 

ON 

maintenance is allowed. 


OFF 

maintenance is prohibited. 

HNTNING 

OFF 

nc maintenance is in progress. 


ON 

maintenance is in progress. 

LOADABLE 

ON 

leading is allowed. 


OFF 

loading this data set is 
prohibited. 

BECSECFP 

null 

records do not have a record 
security field. 


numeric 

offset in bytes of record secur- 
ity field in records. 

RSECTYCD 

9 byte 



elements 

zero or mere record level 
security codes. 


8 alphameric record security password. 


1 byte 

mask fer comparison with record 
security field. 

BXRECLEN 

4 byte 

if exists, current maximum 


element 

record length in file; 


only one element. 

FIE1D DESCRIPTOR RECORDS: 

A field descriptor record indicates that a particular 
named field occurs in the dataset being described. It 
is uniquely identified within the region by having a 
key (FLDNAHE) that is the name cf the field. There are 
two kinds of field descriptors: 


primary direct 
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secondary (direct and indirect) 

All field descriptor records may have the values shown 
below; 


FIELD 

VALUE 

COMMENTS 

FLDNAHE 

S alphamerics 
blank padded 

unique field name. DBPL/I 
key. 

GENERCRT 

8 alphamerics 
blank padded 

name of generic routine for 
testing input values. 

VALIDRTN 

8 alphamerics 
blank padded 

name of routine for testing 
and/or converting input 
values. 

VALIDAEG 

0-50 bytes 

argument to be supplied 
to VALIDRTN 

NUWALIGN 

OFF 

ON 

string alignment, left ius- 
tif icaticn 

numeric alignment, right 
iustif ication 

REFORMAT 

8 alphamerics 
blank padded 

name of routine for con- 
verting output values. 

SECURITY 

8 alphamerics 
asterisk padded 

0-18 field security pass- 
words 


GENERCRT, VA1IDRTN, VALID ARG, and HUM ALIGN may even be 
posted for secondary (read only) fields because linear 
search, for example, may have to transform values to be 
used as comparands. 

PRIMARY DIRECT FIELD DESCRIPTOR RECORDS: 

A primary direct field descriptor record describes a 
maintainable field that occurs on each record of the 
dataset being described. There are five kinds of 
primary fields: 

single fixed bit 
single fixed byte 
single varying byte 
multiple fixed byte 
multiple varying byte 

In addition to the field values shown in Section L, all 
primary descriptors have READONLY OFF and a selection 
of the following field values. 
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FIELD VAIUE COMMENTS 


READONLY OFF field value mav be maintained 

(PU1 and REPUT.) 

VABFLD FIXED fixed length field in fixed 

portion of records, 
portion of records. 

BITF1D OFF byte field 

ON bit field 

FLDPOSIT numeric if VARFID is FIXED, offset in 

bytes of field. 

if VABFLD is VARYING, relative 
field in variable portion of 
records. 

FLDLEN numeric if BITFLD is ON, offset of bit 

f0,2,4 or 6) in byte specified 
by FLDPOSIT. 

if VABFLD is FIXED, internal 
length of field in bytes, 
if VABFLD is VARYING, maximum 
internal length of field in bytes 
with internal field length prefix. 

ELTLIM 0 field does not have elements. 

numeric maximum number of elements to be 

PUT into field or, for a control 
field, maximum number of sub- 
records per parent record. 

ELTLEN numeric if VABELT is FIXED, internal 

lenath of elements in bytes, 
if VABELT is VARYING, maximum 
internal lenath of elements in 
bytes with internal element length 
prefix. 

VABELT FIXED fixed length elements. 

VARYING varying length elements. 

UNIQUELT OFF duplicate element values are 

allowed. 

OR internal element values must be 

unigue. 

INVFILE alphabetic descriptor region suffix for 

inverted index dataset. (null 
if none.) 
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INDEXEXT OFF index internal values of field. 

ON index external values of field. 

{External length may require 
index key length greater than 
internal length.) 

A single fixed bit field descriptor has: 

VARFLD FIXED 

BITFID ON 

FLDPOSIT offset in bytes 

FIDIEN offset in bits <0,2,4 or 6) 

INVFILE null (aay not be indexed) 

See VEHAIRCD in the sample data base. 

A single fixed byte field descriptor has: 

VABFID FIXED 

BITFID OFF 

FLDFOSIT offset in bytes 

FLDLEN internal length in bytes 

INVFILE optional if FLDLEN less than 254 

See EMPPAYCL, EHPINSCL and VEHBAKE in the sample 
data base. 

A single varying byte field descriptor has: 

7 ABFLD VARYING 

FLDPOSIT relative varying field 

FLDLEN maximum internal length including 

internal 2 byte field length prefix 
ELTLIN 0 (zero) 

INVFILE optional if (FLDIEN-Z) less than 254 

See KIDNAHE in the sample data base. 

A multiple fixed byte field descriptor has: 

V ABFLD VABYING 

FLDPOSIT relative varying field 

FIDIEN maximum internal field lenqth including 

internal 2 byte field length prefix 
ELTLIR maximum number of elements 

ELTLEN internal element length in bytes 

VABELT FIXED 

UNIQUE! T optional 

INVFILE optional if ELTLEN less than 254 

See the EHPKID and EMPVEH control fields in the 
sample data base. 
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A multiple varying byte field descriptor has: 


VARFLD 
ELD PCS IT 
FLDLEN 


ELTLIN 

ELTLEN 


UNIQtJEIT 

INVFILE 


VARYING 

relative varying field 

maximum internal field lenath including 
internal 2 byte field length prefix and 
internal 1 byte element length prefixes 
maximum number of elements 
maximum internal element lenqth includ- 
incr internal 1 byte element length 
prefix. VARELT VARYING 

optional 

optional if (ELTLEN-1) less than 254. 


See the KIDPET field inthe sample data base. 


CONTROL FIE1E DESCRIPTORS 


Every descriptor region must have a key descriptor for 
the field that uniquely identifies records in a 
dataset. It is a primary direct field descriptor 
record for a single fixed byte field. 


SECURITY 

READONLY 

VARFLD 

BITFLD 

FLDPOSIT 

INVFILE 


must be null, 
is OFF 
is FIXED 
is OFF 
is 4 

must be null 


Each associate kev descriptor is identical (except the 
region suffix) to the anchor key discriptor. See the 
ENPNAHE field in the sample data base. 

Each subfile dataset in a data base requires: 

1. a control field in the anchor or an associate 
dataset 

2. a separate descriptor region for the subfile 
dataset containging: 

2a. file descriptor record 
2b. RECLEN secondary descriptor record 
2c. subrecord id key descriptor record 
2d. parent key secondary descriptor record 
2e, descriptor records for ether subrecord 
fields. 

1. A subfile control field descriptor describes a 
secondary multiple fixed byte field maintained by 
NDBPAC. 

FLENAflE is a six-character name suffixed 
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GENEBCBT 

VALIDRTN 

80(5 ALIGN 

BEFOBHAT 

SECURITY 

READONLY 

VAFFLD 

FLDPOSIT 

FLELEN 

ELTLIH 


ELTLEN 

VABELT 

UNIQUELY 

SUECNTFL 

SUBFILE 

INVFILE 


by tuo blacks applyinq to the 

subfile. 

is EECVTID 

is null 

is CN 

is EBFNTID 
is optional 
is CN 

is VARYING 

is relative varyinq field 
is maximum internal field length 
is maximum number of elements. 

Note that FLDLEN or ELTLIM limits 
the maximum number of subrecords 
per parent record, 
is 3 

is FIXEE 
is CN 
is CN 

is alphabetic character descriptor 
region suffix for subfile dataset, 
must be null 


See EHPKID and EHP7EH in the sample data base. 
2a, A subfile file descriptor record has: 


FILFTYPE SUBFILE 


2b. A subrecord 1ECLEN descriptor is standard. 

2c. A subrecord id key descriptor describes a primary 
single fixed byte field: 


FLENAHE 

is 

the six-character subfile name 


suffixed by M IB”. 

GE8EBCBT 

is 

t ECVTID 

VALIDBTN 

is 

null 

NUHALIGN 

is 

CN 

BEFOBMAT 

is 

DBFmTTD 

SECUBITY 

must be null 

BEADONLY 

is 

CFF 

VAFFLD 

is 

FIXED 

BITFLD 

is 

CFF 

FLEFOSIT 

is 

4 

INVFILE 

must be null 


See EMPKIDIE and FHPV1HID in the sample data base. 

2d. A subrecord parent key descriptor describes a 
secondary single fixed byte field. 

FLENAME is the six-character subfile name 
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GENERCRT, 


SECURITY 

READONLY 

V AFFLD 

BITFLD 

FLEFOSIT 

INVFILE 


suffixed by "PK". 

VALIDRTN, i’U MALIGN, REFORMAT and 
FLDLEN are the same as the anchor 
bey descriptor, 
is ootional 
is CN 
is FIXED 
is CFF 
is 7 

must be null 


See EMFKIEPK and EMPVEHPK in the sample data base. 

2e, Record level security may be independently 
specified for the anchor, associate and/or subfile 
datasets. It may not be specified for an inverted 
index dataset. Each dataset to have record level 
security must have: 

FECSECFE field position of record security 
field 

RSECTYCt Optional 

in its file descriptor record and a primary direct 
field descriptor record for a single fixed byte 
field as shown in Figure 5 and as follows: 


FLDNANE 

RECSEC suffixed by the 

descriptor 


regicn suffix (blnak 

anchor and a blank. 

for the 

GENERCRT 

DBCV1HX 


YAIIDABG 

null 


NUHALIGN 

OFF 


REFORMAT 

EBFMTHX 


SECUIFTY 

optional 


READONLY 

OFF 


VARFLD 

FIXED 


BITFLD 

OFF 


FLDPOSIT 

on anchor or associate 

datasets. 


after the key <ie. 4 ♦ key FLDLEN + 


1) . on subfile datasets 

, after the 


parent key field (ie. 
parent key FIDLEN ♦ 1) . 

4 ♦ 3 + 

INVFILE 

optional 



See the RECSBC, RECSEC1, EHPFIDRS and EMPVEHRS 
fields in the sample data base. 

SECONDARY READONLY FIELD DESCRIPTOR RECORDS: 

A secondary field descriptor record describes a derived 
field made up of one or mere component fields. There 
are two types: direct and indirect. 
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A direct secondary field descriptor redescribes part of 
all of one primary field or a field automatically 
maintained by NDBPAC such as RECLEN and subfile control 
and parent key fields. A direct secondary descriptor 
has the same field values as a primary descriptor with 
the following qualifications: 


READONLY 

is always 

ON. 

Field may 

only be 

retrieved 

(GET) . 




INVFILE must be null. 




FLDPOSIT 

and FLDLEN 

will 

specify an 

internal 

location 

within or equal to 

a primary field. 

Otherwise, the 

descriptor 

fields 

may specify 

a direct 


secondary field like any of the five types of primary 
fields. A secondary of the same type of length 
provides renaminq and perhaps an alternate FEFCRMAT. A 
secondary "single fixed byte* 1 with a shorter FLDLNGTH 
provides for subfields. A secondary "single varying 
byte" redefininq a primary "multiple fixed byte" 
obtains the concatenation of the internal element 
values. 

Every descriptor region shall have a secondary direct 


field descriptor 
follows: 

for a sinqle fixed byte RECLEN as 

FLDNAME 

is 

RECLEN 

GENEHCRT 

is 

DBCVTFL 

VALIDHTN 

is 

null 

NUMALIGN 

is 

ON 

FEFOFB AT 

is 

DBFHTRL 

SECURITY 

is 

optional 

READONLY 

is 

ON 

VAFFLD 

is 

FIXED 

BITFLB 

is 

OFF 

FLDPOSIT 

is 

0 (zero) 

FLDLEN 

is 

4 

INVFILE 

must be null 


(No dummy descriptors are used for RECLEN. Direct 
secondary descriptors may be specified by the Data Base 
Analyst to provide unique field names for the various 
RECLENs in a data base.) 

An indirect secondary field descriptor describes a 
"superfield" make up of one or more primary or direct 
secondary component fields. No more than one of the 
component fields may be a multi-element field. The 
component field values will be concatenated in NAMEFLD 
order for retrieval. (If there is a multi-element 
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component field, then the superfield will yield 
multiple values,) An indirect secondary descriptor has 
the field values shown below. 


FIELD VALUE 


BEADCHLY CN 

NAMEFLD 9 byte 

elements 
hex *00* 

hex *80* 

followed by 
8 alphmerics 
blank padded 


COMMENT S 


field may only be retrieved 

one to 16 component field 

specifications 

use external value of 

component 

use internal value of 
component 

primary or direct secondary 
component fieldname 


REFORMAT 8 alphamerics name cf routine for 
converting 

blank padded concatenated output value 


If the component fields specified in NAMEFLD are all 
from the same dataset (anchor, associate or subfile) , 
then the indirect secondary descriptor goes in the 
descriptor region for that dataset, (Dummy 
descriptor (s) are required for the indirect secondary 
descriptor if it is on an associate or subfile,) See 
the KIDID field in the sample data base. 


If the componenets are from an associate file and from 
a subfile controlled from that associate file, then the 
indirect secondary descriptor goes in the descriptor 
region for that associate. 

Otherwise the indirect secondary descriptor goes in the 
anchor descriptor reqion and no dummy descriptors are 
required. See the EMPTYPE field in the sample data 
base. 


If any component is from a subfile dataset, the (1.) no 
components may be from any other subfile dataset and 
(2.) to GET such a field, a mainline program must first 
obtain a current record in the subfile — NDBPAC will 
automatically ensure that the parent and associate 
record (s) are available when required. 

Every anchor and associate descriptor reqion shall have 
a secondary indirect field descriptor for the key 
field, see Figure 6, 

FLDNAME is *FILEKEY * 
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BEADONLY is ON 

NAMEFLD has one element consisting of hex *00* 
followed by the name of the primary 
key field* 

BEFOBMAT is NULL. 

(No dummy descriptor is used for FILEKEY on associate 
datasets. ) 

O. DUMMY DESCBIPTOB BECOBDS 

A dummy field descriptor indicates that the field 
occurs in an associate or subfile data set and if it 
has an inverted index data set. It has the field 
values shown below. 

FIEID VA1DE COMMENTS 


F1DNAME 8 alphamerics field name. D8P1/I key. 

blank padded 

ASSOCFIL numeric descriptor region suffix for 

character associate data set. (Null if 

none. ) 

SUBFILE alphabetic descriptor region suffix for 

character subfile data set. (Null if 

none. ) 

dummy descriptor for subfile 
field. 

primary (dummy if ASSOCFIL is 
posted) descriptor for sub- 
file control field. 

INVFILE alphabetic descriptor region suffix for 

character inverted index data set. 

(Null if none.) 

The descriptor file, shown graphically in Figure 7 and 
8, is so designed that the anchor region describes the 
anchor records and also has dummy descriptors for all 
other fields on associate (1) or subfile (Z,Y) records 
thus indicating the presence of all associate and 
subfile data sets. It also indicates the presence of 
all inverted indexes for the data base (A,B,C,D). 

An associate region (1) describes a data set of 
associate records and has dummy descriptors for all 
other fields cn subfiles (Y) depending on the associate 
record. It also indicates the presence of all inverted 
indexes for the associate and dependent subfiles 


SUBCNTBL OFF 
ON 
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<C,D) . 

A subfile region (Z) describes a data set of subfile 
records and indicates the presence of all inverted 
indexes for the subrecords (B). 

An index region (A) describes a data set of inverted 
index records. 

This all enables DBPAC to access a whole data base, an 
associate portion of a data base, a subfile, or an 
inverted index as if it were a degenerate case of a 
data base. This can be advantageous for certain 
utility functions. 

INVERTED INDEX DESCRIPTOR S: 

If INVFIIE is posted for a primary direct field, then a 
separate descriptor region must exist for the inverted 
index dataset. It contains only the following: 

FILE DESCRIPTOR FECOFI 

FItETYPE is INDEX 
SPANNED is optional 

BSELRGTH is 4 ♦ index key FLDLEN {+1 if 

SPANNED) . 

RECLEN SECONDARY DIRECT FIELD DESCRIPTOR RECORD 
Single Fixed Byte 

INDEX KEY SECONDARY DIRECT FIELD DESCRIPTOR RECORD 
Sinqle Fixed Byte 

FLDNAME is same as indexed FIDNAHE 
READONLY is ON 
FLDPOSIT is 4 

If indexed field descriptor has INDEXEXT OFF, the 
FLDLEN is maximum internal indexed field value 
length (without 2 byte internal field length or 1 
byte internal element length) and REFORMAT is same 
as indexed field REFORMAT. If indexed field 
descriptor has INDEXEXT ON, then FLDLEN is 
maximum external indexed field value length and 
REFORMAT is null or a blank stripper. In either 
case, FLDLEN does not include the internal 
"sequence number" suffix if SPANNED. 

CROSS REFERENCES SECONDARY DIRECT FIELD DESCRIPTOR 
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Record Fultiple Fixed Byte 

FLDNAHE is same as indexed field's record key 
FLDNAME. 

READONLY is CN. 

FLDPOSIT is 1. 

FLDLEN is 4030. 

ELTLIH is 4000. 

ELTLEN is same as indexed field's record key 
FLDLEN. 

BEFORHAT is same as indexed field's record key 
REFORMAT » 

0. FILE AND FIELD DESCRIPTOR RECORD FORMATS: 

File Descriptor Record Format 

1 RECLEN 0-3 Fixed Binary Lenqth of header 

record, in bytes, 
includinq itself. 

2 KEY 4-18 Fixed EBCDIC Identifier for this 

descriptor. Contains 
file name . 

3 FLENA8E 4-10 Fixed EBCDIC Seven-character file 

name for this 
descriptor. Contains 
data base and 
suffix. 

4 DATAPLEX 4-9 Fixed EBCDIC Dataplex name padded 

with $s to 6 
characters. 

5 SUFFIX 10 Fixed EBCDIC Identifier dataset. 

6 FLDNA8E 11-18 Fixed EBCDIC Contains blanks. 

7 FILETYPE 19 Fixed EBCDIC 1: Anchor 

2: Associate 

3: Subfile 

4: Inverted index 

8 DESCRCT 20-21 Fixed Binary Number of field 

descriptors for this 
dataset . 

9 BSELNGTH 22-23 Fixed Binary Lenqth of fixed 

portion of record. 

10 DESCOF 24.0 Fixed Bit 0: incomplete 

descriptors. 
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1: complete 

descriptors. 

11 SPANNED 24.2 Fixed Pit Applicable if 

FILETYPE=4: 

0: ordinary records 

1: spanned records 

with internally 
snffixed keys. 

12 DATA 24.4 Fixed Bit 0; No data on file. 

1: Retrieval is 

possible. 

13 MNTNABLE 24.6 Fixed Bit 0: Maintenance 

prohibited. 

1- Maintenance 
allowed. 

14 MNTNING 25.0 Fixed Bit 0: Maintenance not in 

progress. 

1: Maintenance in 

progress. 

15 25,2 Fixed Bit Currently not 

applicable-Null, 

1: Check record 

security. 

16 LOADABLE 25.4 Fixed Bit 0: Loading 

prohibited, 

1: Loading allowed. 

17 25.6 Fixed Bit Currently not 

applicable-Null. 

IB REMAINS 26-29 Fixed Currently not 

applicable- Null. 

19 RECSECFP 30-31 Fixed Einary Record security field 

offset in records; 
null if none. 

20 RSECTYCD VtFldl Var 0-18 record security 

specifications 
consisting of a 
NASIS-id padded with 
$s to 8 characters and 
a one byte mask. 


21 MXRECLEN VrFld2 Yar 


Maximum record length 
in file; field may not 
exist. 
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Field Descriptor Record Format 


1 RECIEK 


KEY 


FLENAEE 


0-3 Fixed Einary 


4-18 Fixed EBCDIC 


4-10 Fixed EBCDIC 


FLDNABE 11-18 Fixed EBCDIC 
ASSOCFI1 19 Fixed EBCDIC 


lenqth of entire 
descriptor, in bytes, 
including itself. 

Identifier for this 
descriptor. Contains 
file and field 
names* 

Seven character file 
name for these 
descriptors. 

Name of field within 
file. 

Suffix of associated 
linear file which 
contains this field; 
null if none. 


6 SUBFILE 20 Fixed EBCDIC Suffix of subfile 

which contains this 
field or which is 
controlled by this 
field; null if none. 

7 INVFILE 21 Fixed EBCDIC Suffix of inverted 

file which indexes 
this field; null if 
none. 


8 READONLY 22.0 Fixed Fit 


9 SUBCMTRL 22.2 Fixed Bit 


10 VBBFLD 22.4 Fixed Eit 


11 BITFID 22.6 Fixed Eit 


0: (Be) Put allowed. 

1; (Be) Put 
prohibited. 

Applicable if STTBFILB 
is non-null: 

0: Field is on 

subfile. 

1; This is control 
field. 

0: Fixed length 

field. 

1: Varvinq length 

field. 

Applicable if VAFFLD=0 
0: Byte field. 

1: Bit field. 
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12 N08ALIGN 23.0 Fixed Eit 0: String (left) 

aliqn. 

1: Numeric (right) 

aliqn, 

13 VARELT 23,2 Fixed Bit Applicable if 

ELTLIH>0: 

0: Fixed length 

elements, 

1: Varying length 

elements. 

14 ONIQOELT 23.4 Fixed Eit Applicable if 

EL1LIW>0: 

0t Duplicate elements 
allowed. 

It Duplicate elements 
prohibited, 

15 INDEXEXT 23,6 Fixed Eit Applicable if INVFI1E 

is non-null. 

0: Index internal 

values. 

1: Index external 

values, 

16 GENEECBT 24-31 Fixed EBCDIC Name of routine to be 

used for testing type 
of input characters 
(numeric, alpha, 
etc.) jnull if none. 

17 VALIDRIN 32-39 Fixed EBCDIC Name cf routine to be 

used for special 
validation or 
conversion of input 
data; null if none. 
Uses argument in 
VAIIDARG. 

18 REFORMAT 40-47 Fixed EBCDIC Name of routine to be 

used for any necessary 
output reformatting or 
conversion; null if 
none. 

19 SPARE 48-55 Fixed Currently not 

applicable-Null. 

20 NANECNT 56-57 Fixed Currently not 

applicable-Null. 

21 F1DP0SIT 5e-59 Fixed Binary If VARFID=0: byte 
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offset in record. 

If v ARFLD= 1 t relative 
varyina field. 

22 FLDIEN 60-61 Fixed Binary If BITFLD=1: bit 

offset in byte. 

If VARFLD=0: field 

length in bytes. 

If V ARFLD= 1 ; maximum 
field length 
in bytes including 2 
byte length indicator. 

23 DFLDIEN 62-63 Fixed Currently not 

applicable- Null. 

24 ELTLIB 64-65 Fixed Binary Applicable if 

VARFLD=1: 

0 : not 

multi-element. 

>0: maximum number of 

elements allowed. 

25 DELTIIM 66-67 Fixed — Currently not 

applicable-Null. 

26 ELT1EN 66-69 Fixed Binary If VAFEIT=0: element 

length in bytes. 

If VAHELT=1: maximum 

element length in 
bytes including 1 byte 
length indicator. 

27 DEITLEN 70-71 Fixed Currently not 

applicable-Null, 

28 VALIDABG VrFldl VarHex Argument to be used 

with VALIDRTN 
(test mask, limit, 
etc,). Fifty 
bytes maximum. Null 
if none. 

29 NAMEFLD ViFld2 Var 0-18 Superfield 

components 
consisting of a one 
byte function code 
(80x: external field 

element , 

OOx: internal field 

element) and an 8 
character component 
field name. 
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SECURITY 


VrFld3 ?ar EBCDIC 0-18 field security 

codes 

consistinq of a 
NASIS-id 

padded with *s to 8 
characters# 
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anchor data set. A more co *?ists of only an 
the sample may have multiple^ndS^ data P lex than 
and/or subfile datasets but t hf ' • aS f OClate ' 
describing it are shown i^esa ^?^ 163 f ° r 


figure 1. 


SAMPLE DATAPLEX 



3YTLS 

S - double vy ar d 
4 - word 
2 - bclfword 

1-2 pocked-dscima! digits 


ANCHOR 


rOLDOTFT FRAME' 


hcXAOSClrtAL 

tSCL.^U 

ASSOCIATE 

* 1 ■ 


System/ 3SQ Record Layout Worksheet 


iMKRMMiiyiNrtL DU j I I'! t 3 j M/iLfllNt: 


Record Name SAMPLE DATAPLEX 


02/07/72 


F0LD0UT FRAME 


APPLICATION 


/U -0 U/M 0/5 

Printed in U.S.A. <Rept. 4/701 


Page iDC • of_ 
-Date 


RECLEN EMPNAME (KEY) 


EMPKID (CONTROL FIELD) 


o* pl. * 

wls i 

ntr-i -1 — U 

B ’ H FL 


k I . I. 


HEX 

oo a 
ioo a 
200 a 
300 a 
<*oo a 
500 cd 
500 a 
7oa a 
3oo a 
goo a 
aoo a 

B 00 1 =) 
COO CD 
000 CD 
E00 CD 
F00 CD 


SUBFILE 

»Z T 


t — 1 1 

RECLEN EMPNAME (KEY) w EMPINSCL EMPVEH (£?!J™ C t L ) 

F j o || -t 1 XslljU 

-L-L-L-I L-J — I — II — l . I . I . 1 . I 1 1 1 , illl I I . II J 1 I . . I ■ L ! 

*5* 1 * * ♦ 1 • » 1 i<i rj - < , » , 

° P 1 *•«•',(«: |±j ■ * . ! { PLl 3. . I r , 

®asM3S3EHas3Esaa3 asnoaonnuraaBag gaagagt mgffi i 

Tim ^aa * 23 ^ m2 hm >n * m ig aa ^ gm rn ■rnrsTj-yngrr^ i 
M IX < 

a ^ q 

RECLEN bS EMPKIDPK CPARENT KEY) d KIDNAME KIDPE'T 

ii t^rDin 1 1 1 1 rr* 1 t 1 . L 



< f 1 1 1 

< * i i ♦ 




1 • 1 1 


SUBFILE 

r Y 1 


* : : U : • jj = 1 = fe h f l| : ; ; sh 7 fL~ : : T D : ' I 1 ! ! : j j | ■ j I T ' I 1 j ¥ ! I 'M ! 1 ! L [ ! 4 - !■ ! • !! ■ ! 1 ! 

a^SSSSSisiinw 2Sida.fiu!^fe^SlS p^^iraesamiSB aseaW^ss’iss^W 


H K o w 

eg ^ eg tx 

RECLEN EMPVENPK (PARENT KEY)g£.g g 

II 1 |g^ I |j 1 j 1 I Ioh.m s|o 

1 1 • j 1 1 1 1 s a ii 1 o 


sp : : ; 





■ * 1 * 1 3 lit 

! ' 1 I * > , ft, 
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Region 


Field descriptors: 


Region : 


Field descriptors: 
Key: 

Cross references : 


Anchor 
*PLEX$$ T 


file descriptor 
RECLEN 

EMPNAME (Key) 
FILEKEY 
RECSEC 
EMPTYPE 

emppaycl 

EMPKIP (control) 

EMPKIDID 

EMPKIDPK 

EMPKIDRS 

KIDNAME 

KIDPEX 

KIDID 

RECSEC1 

EMPINSCL 

EMPVEH 

EMPVEHID 

EMPVEHPK 

EMPVEHRS 

VEHAIRCD 

VEHMAKE 


Associate 
' PLEX$$1 ’ 


file descriptor 
RECLEN 

EMPNAME (Key) 
FILEKEY 


RECSEC1 
EMPINSCL 
EMPVEH (control') 
EMPVEHID ' ~ 
EMPVEHPK 
EMPVEHRS 
VEHAIRCD 
VEHMAKE 


Subfile 
'PLEX$$Z 1 


file descriptor 
RECLEN 


EMPKIDID (Key) 

EMPKIDPK 

EMPKIDRS 

KIDNAME 

KIDPET 

KIDID 


dummy descriptors 


Index 

, PLEX$$A' 

file descriptor 

RECLEN 

EMPPAYCL 

empname 


Index 

’PLEX$$B' 

file descriptor 

RECLEN 

KIDNAME 

EMPKIDID 


Index 

'PLEX$$C' 


file descriptor 

RECLEN 

EMPINSCL 

emphame 


Subfile 

*PLEX$$Y T 


file descriptor 
RECLEN 


EMPVEHID (Key) 

EMPVEHPK 

EMPVEHRS 

VEHAIRCD 

VEHMAKE 


Index 

*PLEX$$D f 


file descriptor 

RECLEN 

VEHMAKE 

EMPVEHID 


FIGURE 3 


SAMPLE DATAPLEX DESCRIPTOR LIST 


REGION 

PLEX$$ 

PLEX$$1 

PLEX$$Z 

PLEX$$Y 

PLEX$$A 

PLEX$$B 

PLEX$$C 

PLEX$$D 




DESCOK 

FILETYPE 

DESCRCT 

BSELNGTH 

SPANNED 

ON 

ANCHOR 

21 

17 

OFF 

ON 

ASSOCIATE 

11 

20 

OFF 

ON 

SUBFILE 

7 

18 

OFF 

ON 

SUBFILE 

6 

21 

OFF 

ON 

INDEX 

3 

7 

ON 

ON 

INDEX 

3 

14 

OFF 

ON 

INDEX 

3 

9 

OFF 

ON 

INDEX 

3 

14 

OFF 


DATA MNTNABLE MNTNING LOADABLE RECSECFP 


OFF 

ON 

OFF 

ON 

14 

OFF 

ON 

OFF 

ON 

14 

OFF 

ON 

OFF 

ON 

17 

OFF 

ON 

OFF 

ON 

17 

OFF 

ON 

OFF 

ON 

null 

OFF 

ON 

OFF 

ON 

null 

OFF 

ON 

OFF 

ON 

null 

OFF 

ON 

OFF. 

ON 

null 


FIGURE 4. SAMPLE FILE DESCRIPTORS 
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fldname 

PLEX$$ EMPNAME 
PLEX$$ RECSEC 
PLEX$$ EMPPAYCL 

PLEX$$1EMPNAME 

PLEX$$1RECSEC1 

PLEX$$1EMFINSCL 

PLEX$$ZEMPKIDID 

plex$$zempkidrs 

PLEX$ $ ZKIDNAME 
PLEX$ $ ZKIDPET 

PLEX$ $YEMP VEHXD 
PLEX$$YEMPVEHRS 
PLEX$$YVEHAIRCD 
FLEX$$YVEHMAKE 


PLEX$$ RECLEN 
PLEX$$ EMPKID 

P LEX$ $ 1RECLEN 
PLEX$$1EMPVEH 

PLEX$ $ ZRECLEN 
PLEX$$ZEMPKIDPK 

PLEX$SYRECLEN 

PLEX$$YEMPVEHPK 


SAMPLE PRIMARY DIRECT FIELD DESCRIPTORS 


CH 

Eh 

w 

n 

s 

cn 


S 

o 


0 
S25 

M 

>i 

1 

Cl 

w 

X 

H 

if 

o 

d 


0 
& 
H 

1 

I 


Q 

R 

M 

CQ 

25 

§ 

M 

a 

IS 

M 

P=H 

fl 

R 

£4 

H 

O 

§ 

d 

d 

o 

i 

j-f 

Cl 

H 

W 

d 

H 

d 

M 

d 

d 


d 

d 


pq 


Ph 



d 

> 


X OFF F OFF 4 10 OFF 
( ) OFF F OFF 14 I 

( ) OFF F OFF 15 2 

X OFF F OFF 4 10 

( ) OFF F OFF 14 1 

( ) OFF F OFF 15 5 

X OFF F OFF 4 3 

( ) OFF F OFF 17 1 

C ) OFF V 1 10 

( ) OFF V 2 40 

X OFF F OFF 4 3 

( ) OFF F OFF 17 1 

( ) OFF F ON 18 0 

( ) OFF F OFF 19 2 


OFF 

OFF 

* 

OFF 

OFF 

ON 

OFF 

OFF 

OFF 

ON 
OFF 
OFF * 
OFF 


R 

d 

W 

o 

O' 

M 


R 

PS 

o 

W 

J23 

W 

o 


( ) 


PS 

I 


o 


I 


o 

Ph 

pq 

PS 


R 

W X 
M X 

s g 


(){>() X 

DBCYTHX X X DBFMTHX 

( ) c ) ( ) ( > A OFF 

* * * * X 

DBCVTHX X X DBFMTHX 

( ) ()()() C OFF 


DBCVTID 
DBCVTHX 
( ) 

5 10 V OFF ( ) 


X 


x X DBFMTID 
X X DBFMTHX 
()()() B OFF 

<><)() ( ) ( ) 


DBCVTID X X DBFMTID X 
DBCVTHX X X DBFMTHX 
O ()()() X 

< ) <)()() D 


ON 


SAMPLE SECONDARY DIRECT FIELD DESCRIPTORS 


) 

ON 

F 

OFF 

0 

4 

ON 


) 

ON 

V 


1 

4000 

ON 

20 

) 

ON 

F 

OFF 

0 

4 

ON 


) 

ON 

V 


1 

4000 

ON 

5 

) 

ON 

F 

OFF 

0 

4 

ON 


) 

ON 

F 

OFF 

7 

10 

* 


) 

ON 

F 

OFF 

0 

4 

ON 


) 

ON 

F 

OFF 

7 

10 

* 




figure 

5. 

SAMPLE 

Dll 


DBCVTRL X X DBFMTRL X 

3 F ON DBCVTID X X DBFMTID X 

DBCVTRL X X DBFMTRL X 

3 F ON DBCVTID X X DBFMTID X 

DBCVTRL X X DBFMTRL X 

* * * * X 


DBCVTRL X 
* £ 


X DBFMTRL X 

* * v 


( 

X X 
ON Y 

X X 


X X 


% x SUBCNTRL 
n x SUBFILE 


fldname 


PLEX$§ FILEKEY 
PLEX$$ EMPTYPE 

PLEX$$1FILEKEY 

PLEX$$ZKIDID 



M 

P* 

» 

O 

w 

co 



Q 

w 


X 

( ) 
X 

( ) 


ON 

(EMPNAME) 

X 

ON 

(EMPPAYCL , EMPINSCL) 

C ) 

ON 

(EMPNAME) 

X 

ON 

(KIDNAME , EMPKIDPK) 

( ) 


FIGURE 6. SAMPLE INDIRECT SECONDARY FIELD 


descriptors 


REFORMAT 



Anchor 


Associate ’ 1 ' 


1 

Subfile 1 Z' 


Subfile ’Y 

Index 'A' 

Index r B ' 

Index *C ' 

Index 'D 1 



FIGURE 7 . SAMPLE DESCRIPTOR FILE 



FLDNAME 


•PLEX$$ 

II 


H 

II 

II 

If 


If 

II 


PLEX$$1 

ir 


ft 


empkidid 

EMPKIDPK 

emfkidrs 

kidname 

kidpet 

kidid 

Recseci 

empinscl 

EMPVEH 

EMPVEHID 

empvehpk 

empvehrs 

VEHAIRCD 

VEHMARE 

EMPVEHID 

empvehpk 

empvehrs 

VEHAIRCD 

VEHMAKE 


assocfil 


1 

1 

1 

1 

1 

1 

1 

1 


SUBFILE 

2 

Z 

2 

2 

Z 

Z 


Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 


SUBCNTRL 

OFF 

OFF 

OFF 

OFF 

OFF 

OFF 


ON 

OFF 

OFF 

OFF 

OFF 

OFF 

OFF 

OFF 

OFF 

OFF 

OFF 


FIGURE 8. 


sample dummy field descriptors 


invfile 


B 


c 


D 


D 
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TCHC B. 8 - DATA EASE EXECUTIVE 


A. DATA SET NAME: 

DBPI/I - DBLIST Interface 

B. CREATED BY: 

DB Preprocessor Function 

C. TYPE OF FIIE: 

{4) Table 

D. ORGANIZATION: 

Documentary Table 

E. KEY IDENTIFIER (CONTROl FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. ELOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The DBPL/I - DBLIST Interface (see Table 1) specifies 
the DBLIST entry point name and the argument types and 
order for the various DEPL/I statements. Thus, it 
serves to specify for the DB Preprocessor function (see 
Section IV, Topic B.5) what CALL statements are to be 
generated for each DBPI/I statement. Conversely, it 
specifies for DBLIST (see section IV, Topic B.5) what 
entry points will be entered and what and how 
information will be available at execution time for 
the performance of the various statement actions. 

The various entry points and their argument types are 
declared fcv source code in the macro library member 
DBTEXT . Any program that includes the LB preprocessor 

also is given DBTEXT by an INCLUDE statement in DB. 
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TAEIE 1. 


DBFL/I 


GENERATED PL/I 


F BEE LIST; 
FBFE LIST (pi 
GET LIST {pi) 
GET LIST (p 1) 
GIT LIST (pi) 
GET LIST fp 1) 
GET LIST (pi) 
SET LIST (p2) 


#p2) ; 

KEY (0) ; 

KEY INTO (St); 

INTERNAL KEY INTO (St) ; 
KEY (n) INTO (st); 

KEY SET (p2) ; 

SI2E (n) LIKE IIST(pl); 


CALL EEPAC; 

CALL EEPACP(Pl); 

CALI DBGLKO(pl); 

CALL DEGLKI (p1,st) ; 
CALL DBGLIK(p1,St) ; 
CALI DBGLKN (pi f n,st) ; 
CALL DBGLKS <p1 r p2) ; 
CALL EESLLL{p2,n,p1) ; 


V h cr* a • 

p 1 r p2 are POINTER 
n ’ is FIXED BINARY (31) 

St is CHARACTER (-) VARYING 
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TOPIC B,9 - SETS INFORMATION FIIE 

A. DATA SET NAHE: 

SETSINFO - Set-File Information File 

B. CREATED BY: 

DBSETI - Utility Module 

C. TYPE OF FILE: 

Non-Data Base File 

D. ORGANIZATION: 

Sequential 

E. KEY IDENTIFIER: 

Not Applicable 

F. RECORD LENGTH: 

Fixed, 100 bytes 

G. BLOCKING FACTOR: 

Unblocked 

H. PURPOSE: 

This file describes the attributes of the Set File; it 
is created at the time the Set File is pre-f ormatted. 
The Information File contains the number of devices 
allocated to the Set File, the number of records per 
device, and the record size. This file is read at 
NASIS initialization by BTTSTART and the information is 
posted into the MASTAB table for DBCSET. 
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TOPIC B . 10 - SET TILE 

A. DATA SET NAME: 

SETFILE - Set File 

B. CBEATEE BY: 

SETINIT - Utility Module 

C. TYPE OF FILE: 

Non-Data Base File 

D. ORGANIZATION: 

Random (BEAM) 

E. KEY IDENTIFIER: 

Not Applicable 

F* RECORD LENGTH: 

Fixed {actual length parameterized at creation) 

G. BLOCKING FACTOR: 

Unblocked 

H. PURPOSE: 

This file is created and ore-formatted by SETINIT, 
which is attached by the DBSETI stand-alone utility. 
Its record length and size is optional. The 
characteristics of this file reside in the SETSINFO 
File upon creation. Once pre-f crmatted , this file is 
used by the NASIS Set Manaqer, DEOSET, for storing 
sets. 
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TOEIC C. 1 - UTILITIES 

A. BATA SET NAME: 

BASIS USERIDS 

B. CREATED BY: 

BB JOIN 

C. TYPE OF FILE: 

ISAM 

D. ORGANIZATION: 

Variable format 

E. KEY IDENTIFIER (CONTROL FIELD): 

8 Character NASISID, key length 8, key position 5. 

F. BECOBD LENGTH: 

4000 bytes 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

Maintain for each NASIS ID, the corresponding password, 
timeslice, user authority and list of valid files. 
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TCtrC D.l - HAINTENANCE 

A. BATA SET NAME; 

NDBLOAD ERROR_CODIS Table 

B. CREATED BY: 

NDBLOAD 

C. TYPE OF FILE: 

Core table 

D. ORGANIZATION: 

Sequential array 

E. KEY IDENTIFIER (CONTROI FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Defined as (0:216) character (1) 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This table contains codes to be used to control the 
action taken for each EEFAC error that may occur. 
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TOPIC D, 2 - MAINTENANCE 


A. DATA SET NAME: 

TRNSCT Data Set Descriptors 

B. CREATED BY: 

CORRECT (NEBCCRR) 

C. TYPE OF FILE: 

QISAM - Anchor 

D. ORGANIZATION; 

Indexed Sequential 

E. KEY IDENTIFIER (CONTROL FIELD): 

Offset of 5, fixed field (255) 

F. RECORD LENGTH: 

Varyinq (4001) 

G. BLOCKING FACTOR: 

Not Applicable 

B. PURPOSE: 

The purpose cf the transaction data base is to serve as 
a temporary repository for changes to one of the data 
base datafiles, until the file owner can validate the 
change and execute the maintenance program to apply 
it. 

The TRNSCT file will consist of fields defined as 
follows: 

KEY - This will be an alphanumeric fixed field 255 
bytes in length consisting of the file name (padded to 
six characters with $) concatenated with the OWNER-ID, 
(padded to eight characters with *) of the affected 
file concatinated with the anchor's key. The last 
fourteen (14) bytes of the key will be the time stamp 
field. 

NASISID - This is an alphanumeric fixed field, 8 bytes 
in length, containing the NASIS-ID of where the 
transaction was created. 
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OPCODE - This is a alphanumeric fixed field 3 bytes in 
length, which indicates the operation to be 
performed, 

FIELD - This is an alphanumeric fixed field, 8 bytes in 
length, which indicates the field of a file which is to 
be updated, START - This is an alphanumeric fixed 
field, 4 bytes in length. For field context 
operation, this field will contain the starting 
location of the context* 

END - This is an alphanumeric fixed field, 4 bytes in 
length. For field context operation, this field will 
contain the ending location of the context, 

SUBKEY - This is an alphanumeric fixed field, 10 bytes 
in length, which indicates the subfile key to be 
corrected . 

SUBCTL - This is an alphanumeric fixed field, 8 bytes 
in length, which is the subfile control field for 
subfile being corrected. 

OLDDATA - This is a varying alphanumeric field, maximum 
3694 bytes long. This will be the old data field to 
change. 

NEWDATA - This is a varying alphanumeric field, maximum 
3694 bytes lcng. This will be the new data field to be 
added or updated. 

There ate many advantages to having the transactions on 
a data base. One important consideration is that 
conversion, validation and reformatting routine can be 
written and used to check the data as it enters the 
data base, thus causing manv errors to be detected 
before maintenance is ever run. 

There are many advantages to having the transactions on 
a data base. One important consideration is that 
conversion, validation and reformatting routines can be 
written and used to check the data as it enters the 
data base, thus causing many errors to be detected 
before maintenance is ever run. 
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TOPIC D.3 - MAINTENANCE 

ft* DATA SET NAME: 

COB SECT Data Display Format 

E. CBBATED BY: 

COBBECT (NDBCORR) 

C. TYPE OF FILE: 

Terminal Display 

D. ORGANIZATION: 

Not Applicable 

E. KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The purpose of this display is to present as much of 
the data contained in the field as possible to the 
user. By doing so, in a reasonable format, the user 
can examine the data and make any required adjustments 
to correct errors that he detects. 
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CORRECT XXXXXXXX, XXXXXXXXXXXXXXX 
{LENGTH = 80, ELEMENTS = 4) 

E001 :XXXXXXXX 

E0C2 : XXXXXXXXXXXXXXXXXX XXXX X XX XXXX X XXX X X xxxxxxxxxxxxxxx 
0C2 XXXXXX 
E0C3 : xxxxxxxx 
E0C4 :XXXXXXXX 
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TOHC D.4 - MAINTENANCE 

6. DATA SET NAME: 

NDBLOAD Error Data $€t *DBIOAD.EBPOE* 

B. CREATED BY: 

NDBLOAD 

C. TYPE OF FILE: 

QISAM 

D. ORGANIZATION: 

Indexed Sequential 

E. KEY IDENTIFIED (CONTROL FI ELI) : 

(Must be the same as that of the NDBLOAD input data 
set) * 

F. RECORD LENGTH: 

(Must be the same as that of the NDBLOAD input data 
set) . 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This data set serves as the repository for all input 
records that cannot be successfully loaded. 
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TOPIC D.5 - MAINTENANCE 


A. DATA SET NAME: 

Data Base Inverted Index Format 

B. CHEATED BY: 

A descriptor region is created by DBEDIT (the 
descriptor editor) fcr each inverted index. It 

generally consists of a header record and three field 
descriptor records. 

Inverted index records are oriqinally written by 

either the invert maintenance program or NDBPAC 
(invertinq concurrently with data base loading). 

Inverted index records are automatically maintained 
during data base maintenance by EBPAC. 

C. TYPE OF FILE: 

(6) NASIS File 

D. ORGANIZATION: 

QISAM - Queued Indexed Sequential Access Method 

E. KEY IDENTIFIER (CONTROL FIELD): 

The index key field name is the same as the indexed 
field name, e.g. AUTHOR, SUB JTERM , KEYWORD etc. The 
QISAM key length is the maximum length of the indexed 
values (plus 1 for a spanned index) and may not exceed 
255 bytes. 

F. RECORD IENGTH: 

Variable - 4000 bytes maximum, 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The purpose of the inverted index files is to give the 
system a fast, efficient method of storing and 
accessing the list of records in a data base file that 
contain a particular data element value. 

The records cf inverted files consist of a universal 
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record form with a specialised structure. The 
structure consists of the concatenation of the 
following fields: 

the QISA8 record length field (FECIEN) 

4 bytes, fixed length, binary 

the QISAM delete byte, 1 byte, fixed length, binary 

the QISAH key field 

1-254 bytes, fixed length, indexed field element 
value 

optionally suffixed by 

1 byte, fixed length, binary record number within 
region if the index is SPANNED, 

the cress references field 

2 bytes, fixed length, binary field length 
followed by one or more fixed length 

anchor or subfile key values in ascending 
collating sequence. 

In a SPANNED index, the first record of a region has 
key suffix zero, and possible continuation records (up 
to 255) in a continuous ’region*. All records in a 
region, except possibly the last, are maximum length 
(have the maximum number of whole cross references) 
after index loading or maintenance with the cross 
reference values ascending frem record to record as 
well as across each record. 
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TOEIC D. 6 - MAINTENANCE 


A. DATA SET NAME: 

Descriptor Editor Data Display format 

B. CHEATED BY: 

Descriptor Editor DISPLAY Command (DBEEDP) 

C. TYPE OF FILE: 

Terminal Display 

D. OBG ANIMATION: 

Not Applicable 

E. KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTHS 
Not Applicable 

G. BLOCKING FACT05: 

Not Applicable 

H. PURPOSE: 

The purpose of this display is to allow the user 
Descriptor Editor to review the specifications 
particular field descriptor. 

I. SAMPLE DISPLAY: 

FIELD NAME... .....XXXXXXXX 

FIELD TYPE.... 

ALIGNMENT... ............ .x 

FIELD FORMAT .XX 

FIELD LENGTH xxxx 

ELEMENT LENGTH 

ELEMENT NUMBER . ....XXXX 

UNIQUE ELEMENTS 

CONVERSION ROUTINE. ...... xxxxxxxx 

FORMATTING ROUTINE. ...... XXXXXXXX 

VALIDATION BCUTINE. ...... xxxxxxxx 

VALIDATION ARGUMENT. .....XXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


of the 
for a 
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XX XXXXXXXX XXX XX XXXXXXXX XX I XX 

INDEX FIIE IE x 

INDEX KEY FOFH.... x 

EXTERNAL KEY LENGTH 


INDEX SPANNED 

• • • X 

ASSOCIATE PILE ID..... 

» * * X 

SUBFILE CONTBOL FIELD. 

. * .X 

SUBFILE ID 

* * • X 

BASE FIELD NAME. 

• . .xxxxxxxx 

EASE FIELD OFFSET..... 

. . . xxxx 

SOPEBFIELD COHPONENTS. 

• * * X* xxxxxxxx 

X* xxxxxxxx 

X. xxxxxxxx 

xtxxyixxxx 

x.xxxx xxxx 

X. xxxxxxxx 

X, xxxxxxxx 

X* xxxxxxxx 

X. xxxxxxxx 

x#xxxxxxxx 

X, xxxxxxxx 

X. xxxxxxxx 

X. xxxxxxxx 

X. xxxxxxxx 

X* xxxxxxxx 

X. xxxxxxxx 


SECURITY 

. . * xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 
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TGHC D. 7 - NAINTENANCE 

A. DATA SET NAME: 

Eescriptor Editor Field Name Display Format 

B. CREATED BY; 

Descriptor Editor {FIELDS) Command (BBEDFD) 

C. TYPE OF FILE; 

Terminal Display 

D. ORGANIZATION: 

Not Applicable 

E. KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

H. PURPOSE: 

The purpose of this display is to allow the 
Descriptor Editor to review the names of 
fields described thus far in CREATE mode 
mode the user is presented a list of the 
descriptor field names. 


user of the 
all of the 
In UPDATE 
descriptor 
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I. SAKP1E DISPIAY: 

XXXXXXXXXXXXXXXXXXXZXXXX 

xxxxxxxx xxxxxxxx xxxxxxxx 

xxxxxxxx xxxxxxxx xxxxxxxx 

xxxxxxxx xxxxxxxx 

NOTE? A Total of 57 names can fee displayed on one 
screen. 
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TOPIC D.8 - MAINTENANCE 

A. EATA SET NAME: 
ndbloae Input Eata Set 

B. CREATED BY: 

Not Applicable 

C. TYPE OF FILE: 

QISAfl 

D. ORGANIZATION: 

Sequential 

E. KEY IDENTIFIER (CONTROL FIELD): 

Usually sane as that of the data base to be loaded. 

F. RECORD LENGTH; 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This data set serves as the source of input records for 
NDBLOAD. 
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TOPIC D. 9 - MAINTENANCE 

A. EATA SET NAME: 

Descriptor Editor Listing Format 

E. CREATED BY: 

Descriptor Editor Print Command (DBEDPB) 

r 

C. TYPE OF FILE: 

1403 Printer Display 

D. ORGANIZATION: 

Not Applicable 

E. KEY IDENTIFIER (CONTROL FIELD) : 

Not Applicable 

F. RECORD LENGTH: 

133 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The purpose of this display is to list the contents of 
each descriptor field and each file descriptor in 
character form. 

I. SAMPLE DISPLAY: 

See Figure 1 



**** ***&**** A*** *************** a a.* . . DATAPLEX “ XXXXXX 

*^r*****************************************************^ 

xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA* ***********i?v?t^i ************************************** 
asirsvbnvuig R v *********** ****** **************** a*a*a*aaaa**a****a*aaaaaa*aaaaa**a 

* L s it w w TT A T ,T » „ _ v * F EE NAMEFLD S V * 
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* 

A 

A 

A 

A 
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R 


D 

P 


D 


D 

L 


M 


R 


0 

S 


E 

N 


L L 
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L L 
E 
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C 
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D 

E 


A 


U 


E 


R 


D 


x . xxxxxxxx xxxxxxxx xxxxxxxxxxxxxxxxxx 

!f o>> AKAAA**AAA*AAA*AAAAAAAAAAAAAAAAAAArtA x. xxxxxxxx xxxxxxxx xxxxxxxxxxxxxxxxxx 

*SFD B DSDMMLR RSECTYCD * 


*U I 
*F L 
*1 E 
*X T 
A Y 
* P 
* E 


S 

C 


R 

C 


s EPANNOE 
E SATTTAC 
L CNANND S 
NON A I A E 

G K E B N B C 

T D L G L I 
H 


A 

M * 
A * 
S* 
K* 


* N E E P A 

AAAAAAAAAAAAAAAAA A AAAAAAAAAAAAAAAAAAAAAAAAAA 
X X XXXX XXXX XXXXXX XXXX XXXXXXXX: XX 

XXXXXXXX: XX 


FIGURE 1. 


SAMPLE LISTING FORMAT 
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TCECC D. 10 - NAINTINANCE 

A. EAT A SET NABE: 

INVERT Restart File 
•INVERT. PARR. • | |FILENAHE - 

where FILENAME is the six character data base name. 

B. CREATED BY: 

NDBIVRT 1 module. 

C. TYPE OF FILE: 

Sequential 

D. ORGANIZATION: 

SAB 

E. KEY IDENTIFIES (CONTROL FIELE): 

Not Applicable 

F. RECORD LENGTH: 

255 bytes (Variable) 

G. BLOCKING FACTOR: 

Not Applicable 

H. FORPOSE: 

This file provides a restart key for the first phase of 
INVERT. 
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TCELC D. 11 - 8AINTENANCE 

A. LATA SET NA8I: 

INVEST SORTIN File 

* SOBTI N • 1 1 1 FIIINAHEf | * , ' 1 | FIEIt 

1. FILES ABE is the six character data base name. 

2. FIELD is the 1-8 character field name that is 
being inverted. 

B. CHEATED BY: 

First step of DBIVST1. 

C. TYPE OF FILE: 

Sequential 

D. ORGANISATION: 

SAM 

E. KEY IDENTIFIER (CONTROL FIELE) : 

First field is the maximum length value of the field 
being inverted. 

F. RECORD LENGTH: 

4000 bytes (Variable). Record consists of maximum 
length value cf field being inverted concatenated with 
file Key. 

G. ELOCEING FACTOS: 

Not Applicable 

H. PURPOSE: 

This file is the input to the second phase of invert, a 
DSORT utility. 
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TOPIC D« 1 2 - MAINTENANCE 

A. EATA SET NAME: 

INVERT SOBTOUT File 

' SOBTOUT. • | | FILENAME M * . * U FIELD 

1. FILENAME is the six character data base name. 

2. FIELD is the 1-8 character field name that is 
being inverted. 

B. CREATED BY: 

Sort step Of EBSIVRT. 

C. TYPE OF FILE: 

Sequential 

D. ORGANIZATION: 

QS AH 

E. KEY IDENTIFIES (CONTROL FIELE) : 

First field is the maximum length value of the field 
being inverted. 

F. RECORD LENGTH: 

4000 bytes (Variable) . Record consists of maximum 
lenqth value of field being inverted concatenated with 
the file Key. 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This file is the input to DBIVRT2. 
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TCEIC D, 13 - MAINTENANCE 

A. EATA SET NAME : 

INVERT PLEX File 

f PIEX. | FILENAME 1 1 * * * 1 1IIELD 

1. FILENAME is the six character data base name. 

2. FIELD is the 1-8 character field name that is 
being inverted, 

B. CREATED BY: 

Step three of DBIVRT2, 

C. TYPE OF FILE: 

Indexed Sequential 

D. ORGANIZATION: 

ISAM 

E. KEY IDENTIFIER (CONTROL HELD): 

Key of file is internal field value being inverted 
concatenated with blanks up to the maximum external 
field length. If index file is spanned, span character 
is concatenated as last position of Key, 

F. RECORD LENGTH: 

4000 bytes (Variable) , Record is identical in format 
as an index file record. 

G. BLOCKING FACTOR: 


Not Applicable 
H, PURPOSE: 

This file is the input to the last step, translation 
step, of CBIV1T2. 
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TOPIC D.14 - MAINTENANCE 

A. DATA SET NAME: 

INVERT RANGE File 

•RANGE. » J | FILENAME | | • . • | |EIEID 

1. FILENAME is the six character data base name. 

2. FIELD is the 1-8 character field name that is 
being inverted. 

B. CREATED BY: 

EBIVRT2 

C. TYPE OF FILE: 

Indexed Sequential 

D. ORGANIZATION: 

ISAM 

E. KEY IDENTIFIER {CONTROL FIELD) : 

Key of the file is the maximum length value of the 
field being inverted. If index file is spanned, span 
character is concatenated as last position of Key. 

F. RECORD LENGTH: 

4000 bytes {Variable) . Record is identical to index 
file record. 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This file is the input to the index merge module for 
index updates. 
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TOPIC D. 15 - flAINTENANCE 


A. DATA SET NAME; 

DESCRP.CHKPOINT 

B. CREATED BY: 

Descriptor Editor Checkpoint (DBEDCP) 

C. TYPE OF FILE: 

TSS VAN 

D. ORGANIZATION: 

Sequential 

E. KEY IDENTIFIES <CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH? 

The records are of varying length of which the maximum 
is dynamically determined at execution time. The 
maximum possible value is 4000. 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The purpose of this dataset is for storing sufficient 
information from the descriptor tables so that the user 
can continue creating the descriptor file at a future 
time through use of the RESTORE command. 

The first record consists of those items from the X 
structure whose value must be preserved. The second 
record consists of the entire content of the FIELD 
structure. The next group of records will contain the 
field descriptor information* There will be one record 
for each existing field, consisting of the information 
in the appropriate FLD structure concatenated with the 
information contained in the appropriate SECURITY, 
SUPER, and VALID structures where applicable. 
Following the field descriptor records are records 
containing the header descriptor information, one for 
each existing file. These records consist of the 
information from the appropriate HDR structure 
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concatenated to the information from the proper BECSEC 
structure when apolicable. 
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TOPIC D. 16 - MAINTEN ANCE 

A. I AT A SET NAME: 

•INDHRG.P&RM. ' HFILENAHE - FILENAME is the six 
character data base name. 

B. CREATED BY: 

NDBINDM2 {index merge module) 

C. TYPE OF FILE: 

SEQUENTIAL 

D. ORGANIZATION: 

QSAK 

E. KEY IDENTIFIER {CONTROL FIELD) : 

Not Applicable 

F. RECORD LENGTH: 

255 Bytes {variable) 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This file provides a restart key for restart of 
EBINDM2. 
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TCHC D . 17 - MAINTENANCE 

A. I ATA SET NAME: 

Descriptor Editor REVIEW Display Format 

B. CREATED BY: 

Descriptor Editor REVIEW Command (DEFERV) 

C. TYPE OF FILE: 

Terminal Display 

D. ORGANIZATION: 

Not Applicable 

E. KEY IDENTIFIER (CONTROL FIELD) : 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The purpose of this display is to allow the user of the 
Descriptor Editor to review the exact contents of any 
descriptor record in any descriptor reqicn. 
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SAMPLE DISPLAYS: 
PILE DESCRIPTOR 


SOFFIX = x 
DESCRCT =XXXXX 
DESCCK =x 
LATA =X 
MNTKITJG =X 
BECSECFP=XXXXX 
HSECTYCD^ XXXXXXXX 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 


FILETYPE=x 
BSELEGTH=XXXXX 
SPANNED — X 
HN!NABLE=X 
LOAD AELE=x 
REMAINS “xxxxxxxx 

XX XXXXXXXX5XX 

xx xxxxxxxx: xx 
xx xxxxxxxx: xx 
xx xxxxxxxx:xx 
xx xxxxxxxxrxx 
xx xxxxxxxx: xx 
xx xxxxxxxx: xx 
xx xxxxxxxx:xx 
xx xxxxxxxx: xx 



FIEID DESCBIETOB 


FLDNAHE 

SUBFILE 

BEAD0N1Y 

VABFLD 

NUHALIGN 

UNIQUELY 

GENEBCFT 

HEFOBHAT 

FLDEN 

FLDLEN 

ELTLIlf 

SPABE 

VALIDABG 


NAHEFLD 


SECUBITY 


xxxxxxxx ASSOCFIL=x 

X INYFILE =x 

x INFILL — x 

x BITFLD =x 

X VAPELT =X 

x INDEXEXT=x 

XXXXXXXX V AL I EFT N= XX XXX XXX 
xxxxxxxxx FLDPCSIT-XXXXX 
xxxxx DFLDLEN =xxxxx 

xxxxx DELTIIM =xxxxx 

XXXXX EFLTIEN =XXXXX 

XXXXXXXX XXX XX XXX 

XXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX 


XXX XX XX XXXXXXXXX XXX XX XX XX XXX XXX 
XXXXXXXX XXX XXXXX XXXXXXX XXX xxxxx 


XXXXXXX 
X* XXXXXXXX 
X. XXXXXXXX 
X. XXXXXXXX 
X. XXXXXXXX 
X. XXXXXXXX 
X, XXXXXXXX 
X* XXXXXXXX 
X. XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 


X. XXXXXXXX 
X. XXXXXXXX 
X. XXXXXXXX 
X. XXXXXXXX 
X, XXXXXXXX 
X. XXXXXXXX 
X. XXXXXXXX 
X. XXXXXXXX 
XXXXXXXX XXXXXXXX 
XXXXXXXX XXXXXXXX 
XXXXXXXX XXXXXXXX 
XXXXXXXX XXXXXXXX 
XXXXXXXX XXXXXXXX 
XXXXXXXX XXXXXXXX 
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TOPIC D« 18 - BAINTENANCE 

A. CATA SET NARE: 

DEFIBID which consists of the external structure FIELD 

B. CHEATED BY: 

Not Applicable 

C. TYPE OF FILE: 

Table 

D. ORGANIZATION : 

PL/I Data Structure 

E. KEY IDENTIFIER {CONTROL FIELD) : 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G . BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This table is used to contain the names and core 
locations of all the field descriptor during the 
runnina of a retrieval session. 
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I. PL/I DECLARATION: 

THIS STRUCTURE IS USED TO CONTAIN THE FIELD NAMES AND 
THEIR RESPECTIVE ELD POINTERS. 


1 HELD BASED (X. FIELD PTR) , /* FIELD NAMES AND */ 

/* “ POINTERS STRUCTURE. */ 

3 BECLEN BIN (31) FIXED, /* RECORD LENGTH FOR */ 

/* ASMPUT. THIS IS USED IN */ 

/* CHKPOINT COMMAND. IT IS */ 

/* SET ECUAL TO ELT LENGTH OF */ 
/* FIELD STRUCTURE. */ 

3 LAST BIN FIXED, /* INDEX OF LAST TABLE ENTRY. */ 

3# BIN FIXED, /* NUMBER OF ENTRIES IN TABLE.*/ 

3 A (X. #FN REFER (FIELD.#)), 

5 NAME CHAR (8), /* FIELDNAME ARRAY. */ 

5 PTR PTR; /* FLD STRUCTURE POINTERS. */ 
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TOPIC D. 19 - SAINTENANCE 

A. DATA SET NANI: 

DERECSEC which consists cf the structures FECSEC and 
BECSEC STB 

B. CREATED BY: 

Hot Applicable 

C. TYPE OF FIIE: 

Table 

D. ORGANIZATION: 

PL/I Eata Structure 

E. KEY IDENTIFIER *CONTBOt EIELE) : 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The BECSEC structure is used to contain the record 
security codes that pertain to a given file. 
BECSEC^STR is a character string overlay of the BECSEC 
structure. 
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I. PL/I DECLARATION: 

THE RECSEC STRUCTURE IS USED TO STORE THE RECORD 
SECURITY CODES AND SECURITY MASKS USED TO DETERMINE 
RECORD SECURITY. THE RECSEC STRUCTURE IS POINTED TO BE 
EDR.RSECTYCD FIELD WHEN THE FILE HAS RECORD SECURITY 
BEFNED ON IT. 


1 RECSEC BASED (X.RSEC PTR ) , /* RECORD SECURITY */ 

/* CODES STRUCTURE. */ 

3 # BIN FIXED, /* NUMBER OF SECURITY CODES. */ 

3 SECURITY (18), 

5 CODES CHAR (8), /* USER PASSWORD. */ 

5 MASK CHAR (2) , /* RECORD ACCESS CODE. */ 

3 CHANGED (18) BIT (1), /* ONE FLAG FOR EACH SECURITY */ 

/* CODE. IF ON THEN REPUT NEW V 
/* VALUE. */ 

3 FILLER CHAB (8); /* NEEDED FOR PLI BUG. */ 


THIS STRUCTURE IS A CHARACTER STRING OVERLAY OF THE 
RECSEC STRUCTURE. IT IS USED FCP MAKING 
COPIES OF THE RECSEC STRUCTURE. 

DCL RECSEC STR CHAR (193) BASED (X.RSEC PTR); 

/* RECSEC STRUCTURE OVERLAY, */ 
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TOPIC D. 20 - MAINTENANCE 

A. DATA SET NAME: 

DESECUB which consists of the structure SECURITY and 
SEC UR IT Y — STB. 

B. CREATED BY: 

Not Applicable 

C. TYPE OF Fits: 

Table 

D. ORGANIZATION: 

PI/I Data Structure 

E. KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The SECURITY structure is used to contain the security 
codes defininq field security for a given field. 
SECORITY_STB is a character string overlay of the 
SECUFITY structure. 
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I. Ft/I DECLARATION 

THE SECURITY STRUCTURE IS USED TO STORE THE FIELD 
SECURITY CODES DEFINED FOR A GIVEN FIELD. IT IS 
POINTED TO EY THE ELD. SECURITY FIELD ON HHICH THIS 
FIELD SECURITY IS DEFINED. 


1 SECURITY BASED (X. FSEC PTR) , /* FIELD SECURITY */ 

/* CODES STRUCTURE. */ 

3 # BIN FIXED , /* NUMBER OF SECURITY CCDES */ 

/♦ FOR THIS FIELD. */ 

3 CODE (18) CHAR (8), /* SECURITY CODE VALUES, V 

3 CHANGED (18) EIT (1), /* ONE FLAG FOR EACH SECURITY */ 

/* CODE. IF ON THEN REPUT THE */ 
/* NES VALUE. */ 

3 FIIIER CHAR (8); /* NEEDED FOR PLI BUG. */ 


THIS STRUCTURE IS A CHARACTER STRING OVERLAY OF THE 
SECURITY STRUCTURE. IT IS USED FOR MAKING COPIES OF 
THE SECURITY STRUCTURE. 

DCL SECURITY STR CHAR (157) BASED (X.FSEC_PTB) ; 

/* SECURITY STRUCTURE OVERLAY.*/ 
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TOHC D. 21 - MAINTENANCE 

A. DATA SET NAME; 

DESUPEF which consists of the structure SOPER and 
SOPER_STR. 

B. CREATED BY; 

Not Applicable 

C. TYPE OF FILE; 

Table 

D. ORGANIZATION: 

PL/I Data Structure. 

E. KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTB: 

Not Applicable 

G. ElOCKING FACTOR; 

Not Applicable 

H. PURPOSE; 

The SOPER structure is used to contain the superfield 
component information of a field descriptor. SUPER_STR 
is a character strinq overlay of the SOPER structure. 
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I, FI/I DECLARATION: 

THE SOPER STRUCTURE IS USED TO STORE THE SUPERFIEID 
COMPONENTS OF A SOPER DESCRIPTOR. IT IS POINTED TO BY 
THE FLD. NAMEFID OF THE DEFINING SUPERFIEID. 


1 SOPER 


3 # BIN FIXED, 

3 NAME {16 ) f 

5 CODE CHAR (1) , 

5 FIEID CHAR (8), 

3 CHANGED <16) BIT (1) , 


BASED {X. SOPER PTR) , /* SOPER FIEID */ 

/*~CO MPC NENT FIELDNAMES */ 

/* STROCTUFE. */ 

/* NUMBER C? COMPONENT NAMES. */ 


3 FIIIEB 


CHAR (8) ; 


/* INTERNAL-EXTERNAL INDICATOR*/ 
/* COMPONENT FIELD NAMES. */ 
/* ONE FI AG FOB EACH COMPONENT*/ 
/* NAME. IF CN THEN BEPUT THIS*/ 
/* COMPONENT NAME. */ 
/* NEEDED FOB FII BUG. */ 


THIS STRUCTURE IS A CHARACTER STRING OVERLAY OF THE 
SUPER STRUCTURE. IT IS USED FOR MAKING COPIES OF THE 
SUPER STRUCTURE, 

DC! SOPER_STF CHAR {156) BASED (X. SOPER PTR): 

/* SOPER STRUCTURE OVERLAY. */ 
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TOPIC D. 22 - H AINTENANCE 

A. EATA SET NAHE: 

DEVALID which consists of the structure VALID 

B. CREATED BY: 

Not Applicable 

C. TYPE OF FILE! 

Table 

D. ORGANIZATION: 

PL/I Data Structure 

E. KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This structure is used to contain the validation 
argument for a field descriptor* 
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I. PL/I DECLARATION: 

THE VALID STRUCTURE IS USED TO STORE A VALIDATION 
ARGUMENT IF ONE IS DEFINED EOR THE FIELD. IT IS 
POINTED TO EY FLD. VALIDARG IN THE FIELD TO WHICH THIS 
ARGUMENT BELONGS. 

1 VALID BASED <X.ARG_FTR), /* VALIDATION ARGUMENT */ 


/* STRUCTURE. */ 

3 LNGTH BIN FIXED, /* LENGTH OF VALIDATION */ 

/* ARGUMENT. */ 

3 ARGUMENT CHAR fX.LVA REFER {VALID. LNGTH) ) J 

/* VALIDATION ARGUMENT. */ 
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TCHC D, 23 - HAINTENANCE 
A* DATA SET NAHE: 

EEFLD which consists of the based structures 
FID and FID STRING 
B. CREATED BY: 

Not Applicable 
C* TYPE OF FILE: 

Table 

D. ORGANIZATION: 

PL/I Data Structure 

E. KEY IDENTIFIER {CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH 
Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The FLD structure is used to contain the information 
describing a field descriptor. FLD_STRING is a 
character string used to overlay the FLD structure. 
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I. Pl/I DECLARATION ; 

THIS STROCUTRE IS USED TO STORE THE INFORMATION 
DEFINING A FIELD DESCRIPTOR. 

1 FLD BASED (X.FLD FTR) , /* FIELD DESCRIPTOR */ 


/* 

3 BACKWARD PTF, /* 

3 FORWARD PTE, /* 

3 FLDNAME CHAP (8) , /* 

3 ASSOCFIL CHAP (1) , /♦ 

3 SUBFILE CHAP {1), /* 

3 INVFILE CHAR (1), /♦ 

3 READONLY CHAF (1) , /* 

3 SOBCNTRL CHAR (1), /* 

3 VARFID CHAP (11, /* 

3 BITFLD CHAR (1), /* 

/♦ 

3 NUMALIGN CHAP (1) , /* 

3 VARELT CHAR | 1 > , /* 

/* 

3 UNIQUELT CHAR (1), /* 

3 INDEXEXT CHAR f 1) , /* 

/* 

/* 

3 FILLER CHAR (1) , /* 

3 GENERCRT CHAP (8) , /* 

3 VALIDRTN CHAP (8) , /* 

3 BEFOPHAT CHAP (8) , /* 

3 SPARE CHAR (16) , /* 


3 FLDPCSIT BIN FIXED, /* 

3 FLDLEN BIN FIXED, /* 

3 DFLDIEN BIN FIXED, /* 

/* 

/* 

3 ELTLIM BIN FIXED, /* 

3 DELTLIH BIN FIXED, /* 

/* 

3 ELTLEN BIN FIXED, /* 

3 DELTLEN BIN FIXED, /* 

/* 

/* 

/* 


3 VALIDARG PTP, /* 

/* 

3 NAHEFLD PTP, /♦ 

/* 

3 SECURITY PTP, /* 

/* 

3 BASEFLD CHAP (8) , /♦ 

/* 

3 OFFSET BIN FIXED, /* 

/* 


STRUCTURE • */ 

BACKWARD FID POINTER. */ 

FORWARD FLD POINTER. */ 

FIEID NAPE. */ 

ASSOCIATE FILE IDENTIFIER. */ 
SUEFILF IDENTIFIER. */ 

INVERTED FILE IDENTIFIER. */ 
EIFLD READ ONLY FLAC. */ 

FIELD A SUBFILE CONTROL FLD*/ 
VARYING LENGTH FIELD FLAG, */ 
FIELD IS FIXED LENGTH */ 

BIT STRING OF LENGTH ONE. */ 
FIELD ALIGNMENT FLAG. */ 

FIELD ELEMENTS OF VARYING */ 
LENGTH FLAG. */ 

ELEMENTS UNIQUE FLAG. */ 

INDEX KEYS TC EE IN */ 

INTERNAL OR EXTERNAL FORK */ 
FLAG. */ 

BOUNDPY ALIGNMENT. */ 

CONVERSION ROUTINE NAME. */ 
VALIDATION ROUTINE NAME. */ 
FORMATTING ROUTINE NAME. */ 
UNUSED DESCPIPTCP FIELD. */ 
FIELD POSITION VALUE. */ 

FIELD LENGTH VALUE. */ 

MAXIMUM FIELD LENGTH OF ALL*/ 
VALUES STORED CN THE DATA */ 
EASE. */ 

MAX NUMBER OF ELEMENTS/FLD. */ 
MAXIMUM ELEMENTS STORED IN */ 
THIS FIELD IN THE DATA BASE*/ 
ELEMENT LENGTH VALUE. */ 

MAXIMUM ELEMENT LENGTH */ 

OF ALL OF THE ELEMENTS */ 

STORED FOP THIS FIELD IN */ 
THE DATA BASE. */ 

POINTEE TO VALIDATION */ 

ARGUMENT IF ANY. */ 

POINTER TO LIST OF FIELD */ 
NAMES MAKING OP SUPER FIELD*/ 
POINTER TC FIEID SECURITY */ 
CODES IF ANY. */ 

THE FIEIDNAMF ON WHICH A */ 
SUBFIELD IS TO BE DEFINED. */ 
THE OFFSET WITHIN THE BASE */ 
FIEID THAT THE SUBFIELD */ 
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/* STARTS. */ 

3 FILE LIST BIN FIXED, /* ON WHICH ENTBY IN FIEJTAB */ 

/* HAS THIS FIELD BEEN HUNG. */ 

3 FLDTYPE BIN FIXED, /* ENTBY INTO FIELD TYPE TABLE*/ 

/* DEFINING WHICH TYPE OF */ 

/* FIELD THIS IS. */ 

3 CHANGED (28) BIT (1), /* ONE FLAG FOB EACH ITEM IN */ 

/* FLD STRUCTURE. IF ON THEN */ 
/* PBT NEW VALUE IN DESCBIPTOB*/ 
/* FILE. */ 

3 FILLER 2 CHAR (8);/* NEEDED FOB PL/I BOG. */ 

THIS STRUCTURE IS A CHARACTER STFING OVERIAY ON THE FLD 
STRUCTURE. IT IS USED FOR MAKING COPIES OF THE FLD 
STRUCTURE. 

DCI FID STRING CHAR (122) BASED (X.FLD_PTR); 

/* FLD STRUCTURE OVERLAY. */ 
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TC El C 0* 24 - MAINTENANCE 

A. t ATA SET NAHE: 

EEXINIT which consists of the X external data structure 
including all initialization values. 

B. CREATED BY: 

Not Applicable 

C. TYPE OF FILE: 

Table 

D. ORGANISATION: 

PL/I Data Structure 

E. KEY IDENTIFIER {CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The X structure is used to contain common variables and 
information used to control the flow through the 
descriptor editor 
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TOPIC D. 25 - MAINTENANCE 

A. DATA SET NAME: 

DEX which consists of the X external data structure 
minus all initialization values. 

B. CREATED BY: 

Not Applicable 

C. TYPE OF FILE: 

Table 

D. ORGANIZATION: 

PL/I Data Structure 

E. KEY IDENTIFIER fCONTROI FIELD) : 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The X structure is used to contain common variables and 
information used to control the flow through the 
descriptor editor. 
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I. PL/I DECLARATION? 

THE X STRUCTURE IS A COIIECTION OF MINOR STRUCTURES AND 
SINGLE VARIABLES USED IB THE RUNNING CF THE DESCRIPTOR 
EDITOR. THESE MINOR STRUCTURES CONSIST OF PREDEFINED 
ELD, HDR, RECSEC SECURITY, AND SUPER STRUCTURES, AS 
WELL AS THE INPUT OUTPUT WORK AREAS EOF THE VARIOUS 
STRUCTURES. THE OTHER MINOR STRUCTURES ARE A LIST OF 
RESERVED FIELD NAMES AND A LIST OF FIELDS WHICH APE TO 
EE DELETED FROM THE DESCRIPTOR FILE WHEN THE CURRENT 
DESCRIPTORS ARE FILED TO MAKE THE DESCRIPTOR FILE 
ACCURATE. 

1 X EXT CTL, /* EXTERNAL CONTROLLED */ 

/* BLOCKED VARIABLES. */ 

THIS MINOR STRUCTURE IS THE PREDEFINED COMMENTS FIELD 
DESCBIPTCB. 

3 FLD_COMMENTS LIKE FLD, /*COHMENTS FIELD DESCRIPTOR*/ 

THIS MINOR STRUCTURE IS THE PREDEFINED FREEFORM FIELD 
DESCRIPTOR. 

3 FLD_FREEFOFH LIKE FLD, /*USER ENTERED KEYWORDS */ 

THIS MINOR STRUCTURE IS THE PREDEFINED RECORD SECURITY 
FIELD DESCRIPTOR. 

3 FLD RS LIKE FLD, 

/* RECORD SECURITY DESCRIPTOR.*/ 
THIS MINOR STRUCTURE IS THE PREDEFINED EASE FCF A SUBFILE 
CONTROL FIELD DESCRIPTOR. 

3 FLD_SUBCNTR1 LIKE FLD, 

THIS MINOR STRUCTURE IS THE PREDEFINED BASE FOR A 
SUBFILE KEY FIELD DESCRIPTOR. 

3 FLD_SUBID LIKE FLD, 

THIS MINOR STRUCTURE IS THE PREDEFINED BASE FOP A 
SUBFILE PARENT KEY FIELD DESCRIPTOR. 

3 FLD_S0BPK LIKE FID, 

THIS MINOR STRUCTURE IS THE PREDEFINED HEADER 
DESCRIPTOR RECORD FOR THE ASSOCIATE FILE CONTAINING 
COMMENTS AND FREEFORM FIEID DESCRIPTORS. 


3 HDB ASSOC 


LIKE HDR,/* HEADER FOR COMMENTS AND */ 
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THIS BINOB STRUCTURE IS TIE PREDEFINED HEADER 
DESCRIPTOR RECORD THE INDEX FIIE CN WHICH THE FIELD 
FREEFORM IS INDEXED. 

3 BDR_INDEX LIKE HDR , 

/* INDEX FILE HEADER FOB OSER */ 
/* KEYWOFDS STORED IN FREEFORM*/ 

THIS MINOR STRUCTURE IS A PREDEFINED INITIALI ED FLD 
STRUCTURE- IT IS USED TC INITIALI E A NEWLY ALLOCATED 
FLD STRUCTURE. 

3 INIT_FLD LIKE FLD , 

/* FIELD DESCRIPTOR INITIAL */ 
/* VALUES. */ 

THIS MINOR STRUCTURE IS A PREDEFINED INITIALI ED HDR 
STRUCTURE. IT IS USED TO INITIALI E A NEWLY ALLOCATED 
HDR STRUCTURE. 

3 INIT_HDR LIKE HDR, 

/* HEADER DESCRIPTOR INITIAL */ 
/* VALUES. */ 

THIS MINOR STRUCTURE IS A PREDEFINED INITIALI ED 

SECURITY STRUCTURE. IT IS USED TO INITIALI E A NEWLY 
ALLOCATED SECURITY STRUCTURE. 

3 INTT_SECURITY, /* FIEID SECURITY STRUCTURE */ 

/* INITIAL VALUES. */ 

5 # BIN FIXED, 

5 CODE (18) CHAR (81 

5 CHANGED (18) BIT (1) , 

5 FILLER CHAR (8),/* NEEDED FOR PLI BUG. */ 

THIS MINOR STRUCTURE IS USED FCF AIL 10 OPERATIONS TO 
AND FROM THE DESCRIPTOR FILE INVOLVING FIELD DESCRIPTOR 
RECORDS. ALL FIELD DESCRIPTOR INPUT FROM THE 
DESCRIPTOR FILE IS PLACED INTO THIS WORK AREA BEFORE 
BEING MOVED TO AN ALLOCATED FLD STRUCTURE. BEFORE 
OUTPUTTING TC A FIELD DESCRIPTOR ON THE DESCRIPTOR 
FILE, THE FIELD INFORMATION IS MOVED INTO THE IO_FLD 
STRUCTURE. THIS IS NECESSARY BECAUSE DBPAC REQUIRES 
ALL 10 INTO AND FROM TC BE DCNE FROM VARYING LENGTH 
CHARACTER STRINGS. 

3 10- FLD, /* FIELD DESCRIPTOR WORK AREA */ 


/* STRUCTURE. */ 
5 BACKWARD PTR, /* BACKWARD FIELD POINTER. */ 
5 FORWARD PTR, /* FORWARD FIELD FCINTER* */ 
5 FLBNAME CHAR (8) VAR,/* FIELD NAME. */ 
5 ASSOCFIL CHAR (1) VAR,/* ASSOCIATE FILE ID. */ 


5 SUBFILE CHAR (1) VAR,/* SUBFILE IDENTIFIER. */ 
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5 INVFILE CHAR (1) VAR,/* INVESTED PILE ID. */ 

5 READONLY CHAR (11 VAR,/* FIELD BEAD ONIY FLAG. */ 

5 SUBCNTBL CHAR {11 VAR,/* FIELD IS A SOBFILE */ 

/* CONTROL FIELD. */ 

5 VARFLD CHAR (1) VAB,/* VARGING LENGTH FIELD.*/ 

5 BITFLD CHAR (1) VAR,/* FIXED LENGTH BIT */ 

/* STRING OF LENGTH ONE. */ 

5 NUMALIGN CHAR (1) VAR,/* FIELD ALIGNMENT FLAG.*/ 

5 VASELT CHAR (1) VAR,/* FIELD ELEHENTS OF */ 

/* LENGTH FLAG. */ 

5 UNIQUEIT CHAR (1) VAR,/* ELEHENTS UNIQUE FLAG.*/ 

5 INDEXEXT CHAR {1) VAR,/* INDEX KEYS TO BE IN */ 

/* INTERNAL OR EXTERNAL FORM */ 
/* FLAG. */ 

5 FILLER CHAR (11 VAR,/* EOUNDRY ALIGNMENT. */ 


5 GENERCRT CHAR (8) VAR,/* CONVERSION RTN NAME. */ 

5 VALIDRTN CHAR (8) VAR,/* VALIDATION RTN NAME. */ 

5 REFORMAT CHAR (8) VAR,/* FORMATTING RTN NAME. */ 

5 SPARE CHAR {81 VAR,/* UNUSED DESCRIPTOR FIELD. */ 
5 FLDPOSIT CHAR (2) VAR,/* FIELD POSITION VALUE.*/ 

5 FLDLEN CHAR (2) VAR,/* FIELD LENGTH VALUE. */ 

5 DFLDLEN CHAR {21 VAR,/* MAXIMUM FIELD LENGTH.*/ 

5 ELTLIM CHAR (21 VAR,/* MAX NUMBER OF */ 

/* ELEMENTS / FIELD. */ 

5 DELTLIM CHAR (21 VAR,/* MAXIMUM # OF ELEMENTS*/ 

5 ELTLEN CHAR (2) var,/* ELEMENT LENGTH VALUE.*/ 

5 DELTLEN CHAR (2) VAR,/* MAXIMUM ELEMENT LNGTH*/ 

5 VALIDAEG PTR, /* POINTER TO VALIDATION */ 

/* ARGUMENT IF ANY. */ 

5 NAMEFLt PTR, /* POINTER TO LIST OF FIELD */ 

/* NAMES MAKING UP SUPER FIELD*/ 
5 SECURITY PTR, /* POINTER TO FIELD SECURITY */ 

/* CODES IF ANY. */ 

5 BASIFLE CHAR (81 ,/* STJEIIELD DEFINING BASE. */ 
5 OFFSET BIN FIXED,/* OFFSET IN BASEFIELD */ 

/* SUBFIELD IS TO START. */ 

5 FILE LIST BIN FIXEt,/* WHICH ENTRY IN FLD_TAB. */ 

5 FLDTYPE BIN FIXED,/* TYPE OF FIE1D. */ 

5 CHANGED (28) BIT (H,/* CNE FLAG FOR EACH ITEM */ 

/* IN FLD STRUCTURE. IF ON */ 
/* THEN POT NEW VAIUE IN */ 

/* DESCRIPTOR FILE. */ 

5 FILLER2 CHAR (8) ,/* NEEDED FOR PLI BUG. */ 

THIS MINOR STRUCTURE IS USED FCR AIL 10 OPERATIONS TO 
AND FROM THE DESCRIPTOR FILE INVOLVING HEADER RECORDS. 
ALL INPUT FROM THE DESCRIPTOR FIIE INVOLVING HEADER 
RECORDS IS PLACED IN THE IO_HDB STRUCTURE BEFORE BEING 
MOVED TO AN ALLOCATED HDR STRUCTURE. TO OUTPUT A 
HEADER RECORD, THE INFORMATION IS MOVED INTO THE IO-HDR 
STRUCTURE BEFORE BEING PLACED ON THE FILE. THIS IS 
NECESSARY BECAUSE DBPAC FEQUIRES ALL 10 TO BE DONE IN 
INTO AND FROM VARYING LENGTH CHARACTER STRINGS. 



PAGE 108 


3 10 HDB, /* HEADER DESCRIPTOR WORK APEA*/ 

5 BACKWARD PTR, /* BACKWABD HESTER POINTER. */ 

5 FORWARD PTR, /* FORWARD HIADEB POINTER. */ 

5 SUFFIX CHAR (1) FAB,/* WHICH FILE THIS */ 

/* HEAEER BELONGS TO. */ 

5 FILETYPE CHAB (1) VAF,/* TYPE OF FILE INDICATE*/ 

5 DESCBCT CHAB (2) VAR,/* NUMBER OF FIELD */ 

/* DESCRIPTORS ON THIS FILE. */ 
5 BSELNGTB CHAR (2) VAR,/* TOTAL LENGTH OF FIXED*/ 

/* FIELDS ON THIS FILE. */ 
5 DESCOK CHAR (1) VAR,/* DESCRIPTORS OK FLAG, */ 

5 SPANNED CHAR <11 VAN,/* THIS INDEX TO CONSIST*/ 

/* OF SPANNED RECORDS FLAG, */ 
5 DATA CHAR (1) VAR,/* DATA IS ON FILE FLAG.*/ 

5 MNTNABLE CHAR (11 VAR,/* FILE CAN BE */ 

/* MAINTAINED FLAG. */ 

5 HNTNING CHAB (11 VAR,/* FIIE BEING MAINTAINED*/ 

/* FLAG. */ 

5 LOADABLE CHAR (11 VAR,/* FILE CAN EE LOADED. */ 

5 REMAINS CHAR (41 VAF,/* UNUSED DESCRIPTOR FLD*/ 

5 RECSBCFP CHAR (21 VAR,/* EILE HAS RECORD */ 

/* SECURITY FLAG. */ 

5 FSECTYCC PTP, /* POINTER TO RECORD */ 

/* SECURITY CODES IF ANY. */ 
5 CHANGED (131 BIT (11,/* ONE FLAG FOR EACH ITEM */ 

/* IN HEADER STRUCTURE. IF */ 
/* ON THEN PUT NEW VALUE */ 

/* IN THE DESCRIPTOR FILE. */ 
5 FILLER CHAR (8) ,/* NEEDED FCF FLI BUG. */ 

THIS MINOR STRUCTURE IS USED FCF AIL 10 OPERATIONS TO 
AND FROM THE DESCRIPTOR FILE INVOLVING FIELD SECURITY 
CODES. 


3 IO_SECURITY, /* FIELD SECURITY STRUCTURE. */ 

5 # BIN FIXEC,/* NUMBER OF SECURITY CODES*/ 

/* FOR THIS FIELD. */ 

5 CODE (18) CHAR (8) VAF,/* USER PASSWORD. */ 

5 CHANGED (181 BIT (1) ,/* CNE FLAG FOE EACH */ 

/* SECURITY CODE. IF ON THEN */ 
/* REPUT THE NEW VALUE. */ 

5 FILLER CHAR (81,/* NEEDED FOB PlI BUG. */ 

3 GF, /* PARAMETERS TO GET FIELD */ 

/* SUBROUTINE. */ 

5 ALLCC_NEW BIT (1) ,/* ALLOCATE AND INITIALI E A */ 

/* NEW FLD STRUCTURE. */ 

5 FLD LEN BIN FIXE!,/* MAXIMUM AIIOWABLE LENGTH*/ 

/* FOR THE FIELDNAME. */ 

5 FLD MSG CHAR (8) ,/* MSGID TC PROMPT FCR THE */ 

/* FIELDNAME. */ 

5 FLD# BIN FIXED,/* FOP AN EXISTING FIELD, */ 

/* THE ENTRY IN FIELD STRUCTnP*/ 
/* ELSE 0. */ 
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5 NEW FLD BIT (1),/* OH - GET A ERAND NEB FIELD*/ 

/* OFF - AN EXISTING FIELD. */ 
5 PR HPT ERR BIT (1),/* VALUE TO SET TC. PROMPT. ERR*/ 
5 RESERVED BIT (1),/* A RETURNED VALUE INDICATIN*/ 


/* IF THF FIELDNAME IS */ 

/* RESERVED. */ 

5 RES_FLD BIT (1) ,/* ON - RESERVED NAMES ARE */ 

/* ACCEPTABLE. */ 

/* OFF - RESERVED NAMES ARE */ 
/* HOT ACCEPTABLE. */ 

3 ADD FLAG BIT (1),/* IN ADD OR CHANGE COMMAND. */ 

3 ALPHA CHAP (25), /* ALL ACCEPTABLE ALPHABETIC */ 

/* CHARACTERS. */ 

3 ALPHANUMERIC CHAR (36) , 

/* ALL ACCEPTABLE ALPHA- */ 

/* NUMIFIC CHARACTERS. */ 

3 AHG_PTB PTR, /* PTP TO VALIDATION ARGUMENT.*/ 

3 ASSOC NAMES CHAR (9),/* AIL POSSIBLE ASSOCIATE */ 

/* FILE ID'S. */ 

3 COMND CALL BIT (1),/* A COMMAND CALL OR AN */ 

/* INTERN AI C All. */ 

3 COMND NAME CHAR (8),/* NAME OF COMMAND CALLED. */ 

3 ERR FLAG BIT (1) ,/* ERROR FLAG USED FOR */ 

/* INTER MODULE COMMUNICATION.*/ 
3 FIELDNAME CHAR (8),/* FIELD TO BE PROCESSED. */ 

3 FIELDTYPE (0:10) CHAR (2),/* All VALID FIELD TYPES.*/ 


3 FIELE_PTR PTR, /* PTR TO FIELD NAME STRUCTURE*/ 

3 FLD I AST (60) PTR, /* PTRS TO LAST FIELD ENTRY */ 

/* IN EACH ETELD STRING. */ 
3 FLD PTR PTR, /* PTP TO FIELD DESCFIPTROR. */ 

3 FLD~TAB (60) PTR, /* PTRS TC FIRST FIELD ENTRY */ 

/* IN EACH FIELD STRING. */ 
3 FLDTYPE BIN FIXED,/* FIELD TYPE USED BY ADD. */ 


3 FSEC PTR PTR, /* PTP TO FIELD SECURITY */ 

/* STRUCTURE. */ 

3 HDR PTR PTR, /* PT1 TO FIIE DESCRIPTOR. */ 

3 HEADJTAB (36) PTR, /* ONE PTR FOR EACH HEADER. */ 

3 HEX_CHARS CHAR (16), 

/* ALL ACCEPTABLE HEXADECIMAL */ 
/* CHARACTERS. */ 

3 INDEX NAMES CHAR (16), 

/* LIST OE ALL POSSIBLE INDEX */ 
/* FIIE ID'S. */ 

3 IOABEA CHAR (256) VAR,/* COMMON TERMINAL INPUT */ 

/* OUTPUT AREA. */ 

3 LOAD FILE CHAR (1) ,/* ID CF FIIE TC LOAD FROM. */ 

3 LOADlONE BIT (1),/* LOAD JUST ONE RECORD. */ 

3 LVA BIN FIXED,/* LENGTH OF VALIDATION */ 

/* ARGUMENT. */ 

3 PAT FILE CHAR (1) ,/* ID CF FIIE BEING WORKED */ 

/* ON BY REVIEW - PATCH. */ 

3 PAT FIELD CHAR (8),/* NAME OF FIELD BEING */ 

/* WORKED ON BY REVIEW-PATCH. */ 
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3 

REV_MODE 

BIT 

(1),/* IN REVIEW OR UPDATE MODE. 

*/ 

3 

RSEC^PTR 

PTR, 

/* PTR TO RECCED SECURITY 

*/ 




/* CODES. 

*/ 

3 

SAVE.STRING 

CHAR 

(15C) VAR,/* AREA TO BUILD 

*/ 




/* COMMAND STRINGS. 

*/ 

3 

SOBEILE.NAMES 

CHAR 

(10) , 





/* LIST CF Alt POSSIBLE 

*/ 




/* SUE-FILE ID'S, 

*/ 

3 

SUFFIX 

CHAR 

(36) , 





/* ALL POSSIBLE FIIE 

*/ 




/♦ IDENTIFIER SUFFICIES. 

*/ 

3 

SUPER PTR 

PTR, 

/* PTR TC SOPEBFIELD COMPONENT*/ 

3 

TBANS, 


/* TRANSITORY CALL LABELS. 

*/ 


5 CALL 

CHAR 

(8) ,/* ROUTINE TO BE CALIED 

*/ 


5 RET 

CHAR 

(8),/* ROUTINE TO RETURN TO. 

*/ 

THIS SUBSEQUENT 

PART 

OF THE X STRUCTURE IS SEPARATED 


FROM THE REST OF THE X ITEMS AS THIS PART OF X IS THE 
PART THAT MUST BE SAVED WHIN USING THE CHKPOINT 
COMMAND. THIS PREVIOUS INFORMATION OF X NEED NOT BE 
SAVED, AS IT IS SETUP PROPERLY WHENEVER X IS ALLOCATED, 
OR THOSE ITEMS WHOSE VALUES MATTERS NOT EETWEEN COMMAND 
EXECUTION. 

3 CHKPOINT RECLEN BIN (31) FIXED, 

/* OUTPUT RECOBE IENGTH FOR */ 
/* ASMPUT ROUTINE. IT IS SET */ 
/* SET TO THE LENGTH OF THE */ 
/* X STRUCTURE THAT HUST BE */ 
/* SAVED WHEN CHECKPOINT IS */ 
/* EYICUTFE. */ 

THIS MINOR STRUCTURE IS THE PREDEFINED RECLEN FIELD 
DESCRIPTOR. IT IS PLACED IN IN THIS PART OF X BECAUSE 
IT MAY HAVE FIELD SECURITY APPLIED TO IT. 

3 FLD_RECLEN LIKE FLD , 

THIS HONOR STRUCTURE IS A LIST CF RESERVED FIELDNAMES. 
THE USER MAY NOT DEFINE BY IJSF OF THE ADD, SUPEFFLD, 
CREATSUB, ADDLIKE, AND RENAME COMMANDS A FIELD 
DESCRIPTOR WITH A FIEIDNAMF THAT APPEARS IN THIS 
TABLE. 

3 RESERVED, /* LIST OF RESERVED FIELDNAMES*/ 

5 LAST # BIN FIXED INIT (14), 

/* INDEX CF LAST ENTRY. */ 

5 FIBIDNAHE (40) CHAR (8) f /*RRES£RVEB FIELDNAMES */ 
3 ASSOC LIST CHAR (9) ,/* LIST OF ASSOCIATE FILE */ 

/* ID'S AVAILABLE FOR */ 

/* ASSIGNMENT. ♦/ 

3 CREATEF BIT (1),/* CRE ATE-UPDATE MODE FLAG. */ 

3 DATAPLEX CHAR (6),/* FILE BEING DEFINED. */ 
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3 DELETE FILES CBAH (36) ,/* IIST OF DESCRIPTOR */ 

/* REGIONS TC BE DELETED FROM */ 
/* DISC. */ 

3 EXIST FILES CHAR *36),/* FIIE IDS CF ALL FILES */ 

/* EXISTING ON DISC. */ 

3 FILE^ EXISTS BIT *1),/* DESCRIPTOR FILE EXISTS. */ 
3 INDEX LIST CHAR *16) , /* LIST OF UNASSIGNED INDEX*/ 

/* FILE ID’S. */ 

3 #FN BIN FIXED,/* NUMBER OF ENTRIES IN */ 

/* HELD STRUCTURE. */ 

3 LOAD_ERROR BIT (1) , 


/* ERROR IN LOADING DESCRIPTRS*/ 
3 NEED FILE BIT (1), 

/* USER SHOULD FILE TO SAVE. */ 
3 SUBFILE_LIST CHAR (10),/* LIST OF ALL UNASSIGNED */ 

/* SUB_FIIE ID’S. */ 

THIS HINOR STRUCTURE IS USED TO STORE THAT I NFORfl ATICN 
NECESSARY TC THE EXECUTION CF MODULES THAT CAN HAVE 
PAGEABLE INFORMATION EISFLAYS. 


3 PAGE INFO, 

5 RTN LABEL, /* WHAT ROUTINE TO PAGE. */ 

5 RTN NAME CHAR (8) , 

/* THE FOUTINE NAME THE PAGING*/ 
/* MODULE IS TO CALI. */ 

5 PTR PTR, /* ADDRESS OF STRUCTURE BEING */ 

/* DISPLAYED. */ 

5 DIR CHAR (1),/* PAGING DIRECTION. */ 

5 FILE_ID CHAP (1),/* SUFFIX OF FILE BEING */ 

/* REVIEWED. */ 

5 FLD NAME CHAR (8) , 

/♦NAME CF FIELD BEING REVIEWD */ 


5 JOTEJ BOM FOXED./* LAST ITEM PUT ON SCREEN-**/ 

5 ITEMS BIN FIXED,/* # OF ITEMS TC DISPLAY. */ 

5 LIMIT BIN FIXED,/* AIL ITEMS AFTER LIMIT TO*/ 

/* BE DISPLAYED ONE PER LINE. */ 

5 # BIN FIXED,/* # CF PAGE EEING DISPLAYD*/ 

5 LAST BIN FIXED,/* LAST ENTRY USED. */ 

5 START (100) BIN FIXED,/* ITEM # USED TO START */ 

/* EACH PAGE. */ 

THIS MINOR STRUCTURE IS USED TO STORE THOSE FIELD NAMES 
AND IDS OF THE DESCRIPTOR REGIONS IN WHICH THEY APPEAR 
THAT MUST BE DELETED FROM THE DESCRIPTOR FILE THE NEXT 
TIME A FIIE IS DONE. 

3 DELETE, /* IIST OF FIELD NAMES TO BE */ 


/* DR1ETED FROM THE DISC. */ 

5 KEY NAME CHAR (8),/* ANCHOR KEY NAME IF */ 

/* ANCHOR FEY NAME HAS EEEN */ 
/* CHANGED. */ 

5 # BIN FIXED,/* NUMBER OF FIELDS */ 



PAGE 112 




/* 

TO EE DELETED. 


V 

<100), 

7 FIELD 

CHAB 

<a> ./* 

NAMES CF FIELDS 

TO BE 

*/ 



/♦ 

DELETED. 


*/ 

7 IDS 

CHAB 

<4) :/* 

IDS CF FILES ON 

WHICH 

*/ 



/* 

THE FIELD APPEABS. 

*/ 



PAGE 113 


TO EC C D. 26 - MAINTENANCE 
A. DATA SET NAME: 

DEHDB which consists of the structures ADR and 
HDB_$TBING 

E. CREATED BY: 

Not Applicable 

C. TYPE OF FILE: 

Table 

D. ORGANIZATION; 

PL/I Data Structure 

E. KEY IDENTIFIER (CONTROL FIELD : 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. ELOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The HDR structure is used to contain the information 
describing a file descriptor. HDR_5TRING is a 
character string used to overlay the HDR structure. 
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X. PL/I DECLARATION : 

•THE HDB STRUCTURE IS USED STORE THE INFORMATION 
DEFINING A FILE DESCRIPTOR . 


HD R 


BASED 

(X.HDF FTP), /* FILE DESCRIPTOR 

*/ 





/* 

STRUCTURE . 

*/ 

3 

BACKWARD 

P1R, 


/* 

BACKWARD HDEP FCINTEF. 

*/ 

3 

FORWARD 

PTR, 


/* 

FOBWABI HEER POINTER. 

*/ 

3 

SUFFIX 

CHAR 

<Dr 

/* 

WHICH FILE THIS HEADER 

*/ 





/* 

BELONGS TO. 

*/ 

3 

FILET YPE 

CRAP 

(D 

/* 

TYPE OF FILE INDICATOR. 

*/ 

3 

DESCRCT 

BIN FIXED, 

/* 

NUMBER OF FIELD DESCRIPTORS*/ 





/* 

ON THIS FILE. 

*/ 

3 

BSELNGTH 

BIN FIXED, 

/* 

TOTAL LENGTH OF FIXED 

*/ 





/* 

FIELDS ON THIS FILE. 

*/ 

3 

DESCOK 

CHAR 

(1) *• 

/* 

DESCRIPTORS CK FLAG. 

*/ 

3 

SPANNED 

CHAP 

(1) * 

/♦ 

THIS INDEX TO CONSIST OF 

*/ 





/* 

SPANNEt RECORDS. 

*/ 

3 

DATA 

CBAB 

(1) r 

/* 

DATA CN FILE SWITCH. 

*/ 

3 

MNTNABLE 

CHAP 

d) , 

/* 

FILE CAN EE MAINTAINED FLAG*/ 

3 

HNTNING 

CHAR 

O). 

/♦ 

FILE BEING MAINTAINED FLAG. 

*/ 

3 

LOADABLE 

CHAP 

n>. 

/* 

WHETHER OR NOT TO PLACE 

*/ 





/* 

DATA ON THIS FILE. 

*/ 

3 

REMAINS 

CHAP 

(8) , 

/* 

UNUSED HDB DESCRIPTOR FIELD*/ 

3 

BECSECFP 

BIN FIXED, 

/* 

FILE HAS RECORD SECURITY. 

*/ 

3 

RSECTYCD 

PTR, 


/* 

POINTER TC RECORD SECURITY 

*/ 





/* 

CODES IF ANY. 

*/ 

3 

CHANGED 

(13) BIT (1), 

/* 

ONE FLAG FOR EACH ITEM IN 

*/ 





/* 

HEADER STRUCTURE. IF ON 

*/ 





/* 

THEN EUT NEW VALUE IN 

*/ 





/* 

DESCRIPTOR FILE. 

*/ 

3 

FILLEB 

CHAP 

00 

/* 

NEEDED FOP PLI BUG. 

*/ 


THIS STRUCTURE IS A CHARACTER STRING OVEBLAY ON THE HDB 
STRUCTURE. IT IS OSED FOR FAKING COPIES CF THE HDB 
STRUCTURE. 

DCL HER_STRING CHAP (46), BASED (X.HDE^PTB); 

/* HDB STBUCTUBE CVERIAY. */ 
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TOPIC D. 27 - BAIN7ENANCE 

A . DATA SET SAME: 

CABDIN Freeform Parameter File 

B. C SEATED BY: 

Oser 

C. TYPE OF FIXE: 

SYSIN Inpat 

D. ORGANIZATION: 

Sequential (QSAB) 

E. KEY IDENTIFIES fCONTBOt FIELD): 

Not Applicable 

G. ELOCKING FACTOB: 

Not Applicable 

h. pobpose: 

This input card file contains the parameters needed 
for each individual maintenance jcb. Parameters are 
entered on cards in a freeform format. Parameters 
must be Keyworded and separated by a comma. Element 
parameters must be enclosed in left and riqht parens* 
No embedded blanks are allowed but Keyword can start 
in any position in the card. Values must not be 
split on two different cards but element parameters 
may be continued on next card if preceded with a 
Keyword. Following is an example of parameter cards: 

//<a BDIN DD * 

FILEN AME=DE2TDB 

FIEID= <EHPNAP!E r EMPAGI,lHPSEX) 

ANCHOR=YES,ASSOCIAT=NO,INDEX=NC 
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TOPIC D. 28 - MAINTENANCE 
A. DATA SET NAME: 

PRTGUT PRINT PILE 

E. CHEATED BY: 

Maintenance Nodules 

C. TYPE OF FILE: 

Printer Output 

D. ORGANIZATION : 

Sequential (QSAM) 

E. KEY IDENTIFIES (CONTROL FIELD): 

Net Applicable 

F. BECQRD LENGTH: 

Fixed 133 bytes (first byte print control 
character) . 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This is a printer output file fox maintenance 
modules to display diagnostic information or 
program status information such as record counts. 
DD card should be: 

//PR TOUT DD SYSODT= A, ECE= (FECF 8=1 A,1BECL= 133, 

// BLKSIZE=133) 
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TOPIC E. 1 - TERMINAL SUPPORT 

A. DATA SET NAME: 

TSPL/I Diagnostics 

B. CREATED BY: 

TS Preprocessor Function 

C. TYPE OF FILE: 

(4) Table 

D. ORGANIZATION? 

Keyed List 

E. KEY IDENTIFIER (CONTROL FIELD): 

Each diagnostic comment has an identification key 

having the form: * ERROR- — nn» vhere nn is a unique 

identification number. 

F. RECORD LENGTH? 

Variable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

TSPL/I Diagnostic comments are generated into mainline 
source programs by the TS preprocessor function (see 
Section IV, Topic E.1 of the DRE) • They are tabulated 
here with additional notes for reference. In Paragraph 
I, single quotes denote that characters from the TS 
preprocessor function or its argument are filled into 
the message to make its meaning clearer. 

I. TSPL/I DIAGNOSTIC CONSENTS: 

TS001 HISSING ARGUMENT ON TSEI/I REFERENCE. 

Severe error - a TS preprocessor function reference 
has no parenthesized argument. 

TSC0 2 TSPL/I ARGUHENT DOES NCT BEGIN RITE A * (' . 

Severe error - a TS preprocessor function reference 
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does not begin with double left parentheses. 
Processing of this TS reference was abandoned because 
the closing right parenthesis would not be able to be 
found. 

TSCO 3 MISSING DELIMITED IN TSPL/I STATEMENT. 

Severe errcr - the right parenthesis at the end of a 
TS preprocessor function reference has been 
encountered unexpectedly. 

TSCO 4 STATEMENT HAS A MISSING 

Severe errcr - the right parenthesis at the end of a 
TS preprocessor function reference has been 
encountered unexpectedly. 

TSCO 5 STATEMENT FOUND FOILCHING FINISH. 

Severe error - the statement has been ignored because 
it follows the TS {(FINISH;)) reference, 

TSCO 6 STATEMENT CONTAINS FXCISS M'(S). 

Severe error - the statement semicolon has been 
found, but the parentheses are unbalanced. The 
statement was ignored. 

TSCO 7 STATEMENT REYNOSO ONKNCNN. 

Severe error - an unfcncwn word was found as the first 
word of a TSP1./I statement. The statement was 
ignored. 

TSCO 8 'text* STATEMENT CONTAINS INVALID SYNTAX. 

The statement type identified by 'text* was found to 
contain invalid syntax. The statement was ignored. 

TSCO 9 EXTBANEOUS TEXT IGNCBEt. 

This message merely means that part of the statement 
was ignored. 

TSC10 IMP80PEB OE MULTIPLE ENABLE STATEMENTS. 

An improper placement cf or multiple use of an enable 
statement has been encountered. The statement was 
ignored. 
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** « NNNNN **: TSPL/I EERCBS* * 

The finish statement has been processed and RNMNN 
errors were previously detected. 
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TOUC E. 2 - TEEHINAL SUPPORT 


A. DATA SET RARE: 

Terminal Control Block 

B. CHEATED BY: 

TS Preprocessor Function 

C. TYPE OF FILE: 

(4) Table 

D. ORGANIZATION: 

Linear Structure of Fields 

E. KEY IDENTIFIER (CONTROL FIELD): 

TC 

The terminal control block is an automatic internal 
data table. 

F. RECORD LENGTH: 

236 Bytes (Hexidecimal EC) 

This is the length of the whole control block including 
the dope vectors. 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The TC control block is used, for communication between 
mainline programs and TSSUP. The declaration is 
generated by the TS preprocessor function. For TSPL/I 
statements in the mainline, the TS preprocessor 
function generates statements that post fields in TC, 
such as a prompt message key. At execution time, TSSUP 
refers to fields in TC and posts error code fields in 
TC which may subsequently be referenced in the 
mainline. 
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I. PL/I DECLARATION: 


/* TERMINAL CONTROL BLOCK {TCI FOR (TS 2) TSPL/I */ 

DECLARE 

1 TC, ,/*DEFINE THE TC STRUCTURE */ 

2 JUNCTION CHAR {8), /*TS FUNCTION IDENTIFIER */ 

/♦SET BY TS PREPROCESSOR */ 
/♦'ENTRY »=ENTRY */ 

/♦'READ ' =READ */ 

/♦♦WRITE ' =W RITE */ 

/♦'FLUSH *=F10SH */ 

/♦•PUT ♦ =PUT ♦/ 

/♦* PROMPT“C*=COKMAND PROMPT*/ 
/*• PROMPT -D' = EAT A PROMPT */ 

/♦• PROMPTER *=MESS AGE */ 

2 PAGING_ENTRY CHAR (8), /*TS PAGING ENTRY POINT ♦/ 

/♦SET BY TS PEE PROCESS OR */ 

/♦TO NAME OF THE CURRENT */ 

/♦MODULE'S PAGING ENTRY */ 

2 LINE SIZE FIXED BIN(15),/*TS LINE WIDTH (BYTES) */ 

/♦SET BY TSSUP ON ENTRY */ 

2 INPUT, /*TS SCREEN INPUT FIELDS */ 

3 ERROR BIT ( 1) , /*READ ERROR BIT SNITCH */ 

/♦SET BY TSSUP AFTER READ */ 

/♦♦0' = NC ERROR ' 1 * = EF RCR */ 

3 EXTRA_BITS BIT{7) , /*RESERVED BIT SNITCHES */ 

2 0UTPUt7 /*TS SCREEN OUTPUT FIELDS */ 

3 SIZE FIXED BIN (15), /+CUTPUT AREA SIZE (LINES) */ 

/♦SET BY TSSUP ON ENTRY */ 


3 INDENT FIXED BIN(15), /♦INDENTATION COLUMN NUMBER*/ 

/♦SET BY USER AT ANYTIME */ 
3 WRITTEN FIXED BIN (15), /*PUT OUTPUT COUNT (BYTES) */ 

/♦SET BY TSSUP CN OVERFLOW */ 
/♦IF AUTO_ WRITE IS SET ON */ 
3 DIRECTION BIT(1), /*PUT DXRiCTION PIT SWITCH */ 

/♦SET BY TS PREPROCESSOR */ 
/*'0' = FOEWARD * 1 * ^BACKWARD */ 
3 PUT PARTIAL BIT(1), /*PUT OUTPUT MODE SWITCH */ 

/♦SET EY USER AT ANYTIME */ 
/* • 0 » = PUT FULL RECORD ONLY */ 
/* * 1 • = P 0 T PARTIAL RECORD */ 
3 AUTO_WBITB BIT(1), /*PUT END OF EUEFER SWITCH */ 

/♦SET BY OSEB AT ANYTIME */ 
/♦♦0»=RETURN TO USER ♦/ 

/*' 1 *=AUTCMATIC WRITE */ 

3 WORD BREAK BIT<1), /*PUT LINE SPLIT SWITCH */ 

/♦SET BY USER AT ANYTIME */ 
/*'0'=TRUNCATE AT LINE END */ 
/*'1'=BREAK AT IAST WORD */ 
/♦PUT OVERFLOW BIT SWITCH */ 


3 OVERFLOW BITfl), 
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3 CONTINUATION BIT{1>, 

3 POSITION EIT (1) f 
3 MORE_DATA BIT<1), 


2 PEOHPT, 

3 SIZE FIXED BIN (15) , 

3 MESSAGE^KEY CHAR (8 ) , 
3 KEYWORD CHAR {8 ) , 

3 BYPASS BIT(1), 

3 ERROR BIT (1 ) , 


3 TRUNCATION BIT(1) , 
3 DEFAULT BIT(1), 

3 UOTED BIT{1) , 

3 MORE_DATA BIT(1), 

3 SKIP BIT (1) , 


/♦SET BY TSSUP WHEN PUT */ 
/♦CAUSES BUFFER OVERFLOW */ 
/♦*0'=NO OVERFLOW */ 
/* « 1 » =C VERFLCW */ 
/♦PUT CONTINUATION SWITCH ♦ / 
/♦SET BY USER WHEN HE IS */ 
/♦PUTTING CONTINUED DATA ♦/ 
/♦«0»-N0 CONTINUATION ♦/ 
/♦ * 1 * = PUT CONTINUED DATA ♦/ 
/♦PUT POSITIONING SWITCH ♦/ 
/♦SET BY TS PREPROCESSOR ♦/ 
/♦* 0 * =PUT TO NEXT LINE ♦/ 


/*' 1' =PUT TO TOP OF SCREEN ♦/ 
/♦SCREEN OVERFLOW SWITCH ♦/ 
/♦SET BY THE USER WHEN HE ♦/ 
/♦HAS MORE DATA TO OUTPUT */ 
/♦VIA THE PAGING MECHANISM */ 
/*»Q»=N0 BORE DATA REMAINS ♦/ 
/♦»1<=MORE DATA AVAILABLE ♦/ 
/♦TS SCREEN PROMPT FIELDS */ 
/♦PROMPT AREA SIZE {LINES) ♦/ 
/♦SET BY TSSUP ON ENTRY ♦/ 
/♦KEY OF CURRENT MESSAGE */ 
/♦SET BY TS PREPROCESSOR ♦/ 
/♦KEYWORD FOR DATA PROMPT */ 
/♦SET EY TS PREPROCESSOR ♦/ 
/♦PROMPTING EYPASS SWITCH ♦/ 
/♦SET BY USER AT ANYTIME */ 


/♦* 0 *=PRC MPT IF NC DATA */ 
/♦* 1«=RETURN NULL VALUE */ 
/♦PROMPTING ERROR SWITCHZZZ*/ 
/♦SET BY USER WHEN A DATA ♦/ 
/♦ERROR FORCES FEPROMPTING ♦/ 
/♦'0»=PBCCESS NORMALLY ♦/ 
/♦» 1»=REPROMPT FOR DATA */ 
/♦DATA TRUNCATION SWITCH */ 
/♦SET BY TSSUP FOR PROMPT ♦/ 
/♦«0«=NO TRUNCATION ♦/ 
/♦ * 1 »=DATA TRUNCATED ♦/ 


/♦DEFAULT VALUE BIT SWITCH ♦/ 
/♦SET BY TSSUP FOR PROMPT ♦/ 
/♦«G«=DATA ENTERED BY USER */ 
/*« 1 « =D AT A WAS A DEFAULT ♦/ 
/♦ UOTED UOTED BIT SWITCH ♦/ 


/♦SET BY TSSUP FOR PROMPT */ 
/♦'0»=NOBMAL DATA VALUE ♦/ 
/♦'1»= UCTED STRING ♦/ 
/♦PARENTHIZED LIST SWITCH ♦/ 
/♦SET BY TSSUP FOR PROMPT ♦/ 
/* » 0 * = 1 A ST DATA VAIUE */ 
/♦ * 1 * =MORE VAIUES FOLLOW */ 
/♦SKIP INPUT PARSING BIT ♦/ 
/♦SET BY THE USER WHEN HE ♦/ 
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/♦WISHES TC E YFASS PASSING */ 
/* * 0 * =EC NOBHAL PARSING */ 
/**1»=SFIF NCBE8I PARSING V 
3 PAGE BIT (1) ; /♦PAGING CONTROL SWITCH */ 

/♦»0»=IGNCRE PAGING ENTRY ♦/ 
/♦•I *=ALTEB PAGING ENTBY ♦/ 
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TCHC E, 3 - TERMINAL SUPPORT 


A. DATA SET SAKE : 

TSTEXT - Terminal Control Block Declaration 

B. CREATED BY: 

Included by TS processor function. 

C. TYPE OF FILE: 

Table 

D. CBG ANIMATION? 

PL/I Source Statements 

E. KEY IDENTIFIER {CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

92 bytes 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The purpose of the TSTEXT is to define the terminal 
control block |TC) within every program using it. This 
enables the programmer and the preprocessor to refer to 
the fields of the TC block in order to specify the 
various functions and options needed by the program, 

I. PL/I DECLARATION: 


DECLARE 

TSFLUSH ENTRY () , /* FLUSH ENTRY POINT */ 

TSREAD ENTRY (, CHAR (*) VAR),/* READ ENTFY POINT */ 

TSWRITE ENTRY (,CHAR {*) VAR),/* WRITE ENTRY POINT */ 

TSPUT ENTRY |, CHAR (*) VAR, /* PUT ENTRY POINT */ 

CHARI*) VAR),/* DEFINITION */ 

{ TSPRMTC, /* COMMAND PROMPT ENTRY */ 

TSPRMTD, /* DATA FRCP! FT ENTRY */ 


TSPBMTM ) ENTRY |, CHAR (*) VAR, /* MESSAGE ENTRY POINT*/ 
CEAR(*) VAR, CHAR(*) VAR, CHAR (*) VAR, CHAR ( *) VAR, 

CHARI*) VAR, CHARI*) VAR, CHAR <*) VAF, CHARI*) VAR, 

CHARI*) VAR, CHAF(*) VAR, CHARI*) VAR, CHARI*) VAR, 
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CEA R (*) VAR, CHAfi<*) VAR, CHAR<*) VAR, CHAR(*) VAR , 

CBA B (*) VAR, CHAB {*) VAR, CHAR<*) VAR, CHAR < *) VAR); 

DECL5BE 

1 TC, /* DEFINE THE TC STRUCTURE V 

2 FUNCTION CHAB (8), /* TS FUNCTION IDENTIFIEB */ 

/* SET EY TS PREPROCESSOR */ 
/* ’ENTRY *=ENTRY */ 

/* * BEAT * =F EAU */ 

/* • WRITE * = WRITE */ 

/* * FLUS H »=PLUSH */ 

/* • PUT *=POT V 

/* ’PROM FT-C* =COMMAND PROMPT*/ 

/* 'PROMFT-D’=DATA PROMPT */ 

/* * PROMIT-M • =MESSAGE */ 

2 PAGING ENTRY CHAB (8) , /* TS PAGING ENTRY POINT */ 

/* SET EY TS PBEPBOCESSOR */ 
/* TO NAME OF THE CURRENT */ 
/* MODULE* S PAGING ENTRY */ 
2 L I NE_SIZE FIXED BIN (15), /* TS LINE WIDTH (BYTES) */ 

/* SET EY TSSUP CN ENTRY */ 
2 INPUT, /* TS SCREEN INPUT FIEIDS */ 

3 ERROR BIT ( 1 ) , /* BEAD ERROR BIT SNITCH */ 

/* SET EY TSSUP AFTER BEAD */ 
/* »0» = NC ERROR 1 1 * =EREOR */ 
3 EXTRA BITS BIT (7), /* RESERVED BIT SNITCHES */ 

2 OUTPUT, ~ /* TS SCREEN OUTPUT FIELDS */ 

3 SIZE FIXED BIN f 15) , /* OUTPUT AREA SIZE (LINES) */ 

/* SET BY TSSUF ON ENTRY */ 


3 INDENT FIXED BIN(15), /* INDENTATION COLUMN NUMBER*/ 

/* SET BY USER AT ANYTIME */ 
3 WRITTEN FIXED BIN (15),/* PUT OUTPUT COUNT (BYTES) */ 

/* SET BY TSSUP ON OVERFLOW */ 
/* IF AUTQ_WRITE IS SET ON */ 
3 DIRECTION EIT|1), /* PUT DIRECTION BIT SNITCH */ 

/* SET BY TS PREPROCESSOR */ 
/* »0»=FORWABD * 1 * =B ACKWARD */ 


3 PUT PARTIAL BIT(1), /* PUT CUTPUT MODE SNITCH */ 

/* SET BY USER AT ANYTIME */ 
/* »0*=PUT FULL RECORD ONLY */ 
/* * 1 * = PUT PARTIAL RECORD */ 
3 AUTO WRITE EIT{1), /* PUT END OF BUFFER SNITCH */ 

/* SET BY USER AT ANYTIME */ 
/* * 0 * =RETURN TO USER */ 

/* » 1 »=AUTCMATIC WRITE */ 

3 WORD BREAK BIT(1), /* PUT LINE SPLIT SWITCH */ 

/* SET EY USER AT ANYTIME */ 
/* * 0 * ^TRUNCATE AT LINE END */ 
/* M'=BREAK AT IAST WORD */ 
3 OVERFLOW BIT(1), /* PUT OVERFLOW BIT SWITCH */ 

/* SET EY TSSUP WHEN PUT */ 

/* CAUSES BUFFER OVERFLOW */ 

/* *C*=NC OVERFLOW */ 

/* M’-CVEPFICW */ 
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3 CONTINUATION BIT(1), 

3 POSITION BIT (1) , 

3 MORE_DATA EIT(1), 

2 PROMPT, 

3 SIZE FIXED BIN (15), 

3 HESSAGE_KEY CHAB(8), 
3 KEYWORD CHAR (8) , 

3 BYPASS BIT ( 1) , 

3 ERROR BIT (1) , 

3 TRUNCATION BIT (1) , 

3 DEFAULT BIT (1) , 

3 QUOTED EIT ( 1) » 

3 MORE_DATA EIT(1) , 

3 SKIP BIT ( 1 ) , 

3 PAGE BIT(1); 


/* PUT CONTINUATION SNITCH */ 


/* SET BY USER WHEN HI IS */ 
/* PUTTING CONTINUED DATA */ 
/* * 0*-NC CONTINUATION */ 
/* M* = F0T CONTINUED DATA */ 
/* PUT POSITIONING SW ITCH */ 
/* SET BY TS PREPROCESSOR */ 
/* *0'=PCT TO NEXT LINE */ 


/* »1*=F0T TC TCP OF SCREEN */ 
/* SCREEN OVERFLOW SNITCH */ 
/* SET EY THE USER WHEN HE */ 
/* HAS BORE DATA TO OUTPUT */ 
/* VIA THE PAGING MECHANISM */ 
/* ' O’ =NC MORE DATA REMAINS */ 
/* «1»=MCRE DATA AVAILABLE */ 
/* TS SCREEN PROMPT FIELDS */ 
/* PROMPT AREA SIZE (LINES) */ 
/* SET EY TSSOP ON ENTRY */ 
/* KEY OF CURRENT MESSAGE V 
/* SET BY TS PREPROCESSOR */ 
/* KEYWORD FOR DATA PROMPT */ 
/* SET BY TS PREPROCESSOR */ 
/* PROMPTING BYPASS SNITCH */ 
/* SET BY USER AT ANYTIME */ 


/* * 0* = EROHPT IF NO DATA */ 
/* * 1 * = RETURN NULI VALUE */ 
/* PROMPTING ERROR SWITCH */ 
/* SET BY USER WHEN A DATA */ 
/* ERROR FORCES FEPROMPTING */ 
/* *0*=PR0CESS NORMALLY ♦/ 

/* * 1 * =BE PROMPT FOR DATA */ 
/* DATA TRUNCATION SNITCH */ 
/* SET BY TSSUP FCB PECMPT */ 
/* * 0 * =NO TRUNCATION */ 

/* * 1 *=E ATA TRUNCATED */ 

/* DEFAULT VALUE EIT SWITCH */ 
/* SET BY TSSUP FCR PROMPT */ 
/* * 0 * =C ATA ENTERED BY USER */ 
/* * 1 ' =E ATA WAS A DEFAULT */ 
/* QUOTED QUOTED BIT SWITCH */ 
SET BY TSSUP FCR PROMPT ♦/ 
/* 1 0 * =NORM AL DATA VALUE */ 
/* ♦1*=QUOTED STRING */ 

/* PARENTHI7ED LIST SWITCH */ 
/* SET BY TSSUP FCB PROMPT */ 
/* »0'=LAST DATA VALUE */ 

/* M» = HCRE VALUES FOLLOW */ 
/* SKIP INPUT PARSING BIT */ 
/* SET EY THE USER WHEN HE V 
/* WISHES TO BYPASS PARSING */ 
/* ' 0 *=DC NORMAL PARSING */ 
/* M'^SKIP NORMAL PARSING V 
/* PAGING CONTROL SWITCH */ 
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/* * G * = 1 GNOPE PAGING ENTRY */ 
/* *1 WAITER PAGING BNTPY */ 
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TOPIC F* 1 - DATA RETRIEVAL 

A. DATA SET NAME 

PETDATA - Betrieval Data Table 

B. CHEATED BY: 

DBINIT 

C. TYPE OF FILE: 

Table 

D. ORGANIZATION 

PL/I Data Structure 

E. KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. BECOHD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE 

1, PETDATA EXTERNAL CONTROLLED* 

This table contains data fields unique to the 
retrieval sub-svstem and referenced bv various 
modules of that sub-system. 

2. NAME CHAR (50) VARYING. 

This field contains the name of the user. 

2. ADDRESS CHAR(IOO) VARYING. 

This field contains the address of the 
user. 

I. PL /I DECLARATION 


/* NASIS SYSTEM RETRIEVAL DATA TABLE ♦/ 

DC! 

1 EETDATA EXTERNAL CONTROLLED, /*DEFINE RETRIEVAL DATA */ 

2 NAME CHAR (50) VAR, /* USER’S NAME */ 

2 ADDRESS CHAR (100) VAR; /* USER'S ADDRESS */ 
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TOEIC F.2 - DATA BETBIEVAL 


A. DATA SET NAME: 

EXPAND Display Format 

E. CBEATED BY: 

EXPAND (DBXPND) 

C. TYPE OF FILE: 

(3) Terminal Communication 

D. OBG ANIZATION; 

Character Display Screen 

E. KEY IDENTIFIES (CONTBOL FIELD) : 

Not Applicable 

F. BECOBD LENGTH: 

Variable (Enter output area cf the screen or pseudo 
screen) 

G. BLOCKING FACTOB: 

Not Applicable 

H. PUBPOSE: 

This is a series of on-line output displays produced by 
the EXPAND command giving the user full access to the 
inverted indexes of a data base assisting him in an 
on-line search for information. 

The display is adapted to the size of the display 
screen being used. If the end of the inverted index or 
the end of the range of E-numbers (000-999) is 
encountered in either direction, a line such as 

(—TOP OF PAGING SEQUENCE — ) 

( — END OF INDEX ) 

is displayed in the appropriate row. The primary term 
is always regenerated cn the appropriate row when 
multiple paging operations are done in either direction 
even if the primary term is not found in the inverted 
index. 



SAMPLE EXPAND DISPLAY 


SYSTEM 

USER: 

SYSTEM 


-ENTER: 


expand asm, lanquaqe 


LINE XSEES 
E 100 28 
E101 6 
1102 12 
E 103 43 
E104 4 


LANGUAGE {S) 

ASK 

ENG 

N/A 

PLI 

TSS 


**** 


f END OF INDEX 
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Tone F. 3 - DATA BETRIEVAL 

A. DATA SET NAME: 

SELECT Display Format 

B. CHEATED BY: 

SELECT (DBSLCT and DBSETC) 

C. TYPE OF FILE: 

(3) Terminal communication 

D. ORGANIZATION: 

Character Display Screen 

E. KEY IDENTIFIES (CONTROI FIELD) : 

Not Applicable 

F. RECORD LENGTH; 

480 Byte typical - 40 column, 22 line output area apart 
from the prompting area. 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This is the output generated bv the SELECT command. 
DBSLCT calls the DBPSET entry point of DBSETU to post 
the users new set and DBSETU sends this display to the 
prompt area of the screen. 
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SELECT COMMAND SCREEN DISPLAY 


aa bbbbb ccccccc 
or 

aa bbbbb (FROM: dddddd) ccccccc 


where: 

aa 

bbbbb 

ccccccc 

aaaada 


set number 

number of references 
SELECT expression 

control field name, if applicable 
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TOPIC F.4 - DATA RETRIEVAL 


A. DATA SET NAHE: 

DISPLAY Display Format 

B. CREATED BY: 

DISPLAY (DBDSPL) 

C. TYPE OF FILE: 

(3) Terminal Communication 

D. ORGANIZATION: 

Character Display Screen 

E. KEY IDENTIFIER (CONTROL FIELD) 5 
Not Applicable 

?. RECORD LENGTH: 

480 Bytes typical - 40 column, 12 line output area 
apart from the prompting area. 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This is a series of on-line output displays produced by 
the DISPLAY command giving the user full access to the 
anchor and associated files of a data base assisting 
him in an on-line search for information. Each screen 
image is built in a PAGTAE buffer and then transmitted 
in a single output operation to the display screen. A 
special use of the DISPLAY command is to retrieve saved 
screen images and redisplay them. Usually a stored 
screen image is one of the formats produced by the 
various commands, but it may even be a screen image the 
user has keyed in. 

The display is adapted to the size of the display 
screen being used including the degenerate case of a 
typewriter terminal (120 columns by one line). 
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The first row under the headinq rows always has a field 
name tag, even when it is a continuation of an element 
value begun on the previous screen. 
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DISPLAY Command Screen Display 


DISPLAY aa,fc,ccccc (original command parameters) 

vwwwvwwv: mmmnunm OF SET aa # FOFKAT b, ITER nn 
xxxxxxxx: n 

yyyyyyyyi v» 

: Q 

2ZZ7ZZZZ : rrr rrrrr rrrrrrrrrrrrrrrrrrrrrr 
rtrrrrr rrr rrrrrrrrrrrrrrrrrrrrrrrrr rrrrr 
rrr rrrrrrrr rrr rrrrr rrrrr rrrrrrrr rrrrrrrr 
rrrrrrrrrrrrrrrrr etc. 


where: 


nn 

mmm etc, 
P# d 

rrr etc, 
www etc, 
xxx etc, 
yyy etc. 
zzz etc. 


relative record in set/key aa 
up to 30 characters of key value, 
up to 30 characters cf element value. 

77 character element value, 
key field name. 

field name having a single short element, 
field name having twc short elements, 
field name having a single long element. 
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COLUMNAR 


£1 SPLAY aa, FFF, ccccc (original command parameters) 

PAGE xx 

tl __ 

1 2 “ 


tn 

hi 

h2 


FI 


F2 

F2 


vhere: 


F5 


F3 

F4 


F4 

F3 

F4 

F3 



hn 


xx = page number. 

tl = one or more title lines. 

hi = one or more header lines. 

F1,F5 = one element field on the anchor or associate 
file. 

F2 = a multi-element field. 

F3,F4 - an elemental field on a subfile. 
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TOPIC F. 5 - DATA RETRIEVAL 


A. DATA SET NANI: 

PASSED Table 

B. CHEATED BY: 

The SELECT Command (DBSLCT) 

C. TYPE OF FILE: 

Table 

D. ORGANIZATION: 

Linear Structure cf elements 

E. KEY IDENTIFIES (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

PARSED is a group of structures used by SELECT to save 
the information from a parsed expression, when that 
expression requires a search or contains W S M numbers 
which cannot be resolved with set numbers until after 
execution at the actual linear search. 

At search tiae EXSEABCR calls SELECT to begin 
evaluation of the boolean expressions and to post sets 
to he searched. SELECT uses the information contained 
in PASSED tc do this and to replace all "S" numbers 
with their corresponding set numbers. After the search 
SELECT proceeds with the final evaluation of the 
expression. 

1. PARSED is a based structure consisting of pointers 
to the other structures containing the various 
pieces of information that needs to be saved when 
a boolean expression contains "S M numbers. 


2 


PAP S_TAB_ > PTR is a pointer to the structure 



PAGE 138 


which is used to describe each element of the 
expression. 

2. PTAE_INfO_PTR is a pointer to the structure 
which holds additional information about each 
element of the expression. 

2. PTAB_PTBS_PTR is a pointer to the array of 
pointers,"" each pointer corresponding to an 
element of the expression. 

2. INST_LIST_P1R is a pointer to the list of 
instructions generated by SELECT to provide 
for evaluation of the expression. 

2. HAS^PTR is a pointer to the work string in 
which the expression and other necessary 
character strings are stored. 

2. LNTH is the length for allocation of all 
tables listed here except HAS. It is 
determined from the length of the input 
expression. 

2, S# contains the S# in which the PARSED 
pointer is stcred, i.e. the FABSEE pointer 
is stored in ENTBYBEF. P ABSEE pointed to by 
SBCHTAB . DBFPTB (PARSED. S#) . 

PABS^TAE is the primary table for storage of 
information as the expression is parsed. 

2. LNTH is the number of array elements in the 
table. 

2. EL is an element of the table. One element 
in the table is used to describe each 
syntactic item in the expression. 

3. IDY is the relative position of the item 
in the string HAS. 

3. LTH is the length of the item. 

3* ID is the identifier of the item which 

distinguishes between items of the same 
general t?pe. 

3, TYPE is the qeneral type of the item, 
such a relation operator, character 
string, etc. 

3. TEBH is used to mark an item as being a 
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term during expression evaluation, or 
to marl? an item so that it will be 
ignored by later passes, 

3* SKIP causes later proqram passes to skip 
over a particular number of items (or 
elements in PAES_TAB) . 

PTAB_PTES is an array of pointers. Each pointer 
corresponds directly to an element in PABS_TAB_ the 
Nth pointer in FTAE_PTFS corresponds to the Nth 
element in PARS_TAE. When an expression item 
results in the formation of a set, the pointer to 
the set is stored in the corresponding element of 
PTAB_PTBS. 

2, LNTH is number of array elements, 

2. El is a pointer array element, 

PTAB_INFO is a table for storaqe of additional 
information about an expression item, and again 
each element corresponds directly to an element in 
PABSJTAE. 

2, LNTH is number of array elements, 

2, EL is an array element. 

3, ID X relative position of item, in string 
MAS, which is associated with item to 
which this element corresponds, 

3. SIX indicates subfile which applies to 
item, 

3, INDXD on if item (Fieldname or value) is 
indexed . 

3. NNDXE on if item (Fieldname or value) is 
not indexed, 

3, CTL on when item (Fieldname) is control 
field name, 

INST_LIST is a list of "instructions 1 ’ created and 
executed by SELECT. The instructions guide the 
creation of sets, both from index files and 
through linear search, as well as the boolean 
combination of all sets, once formed, to yield the 
final set, 

2. LNTH number of instruction elements In this 
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list. 

2. EL an instruction. 

3. OP is the operation code. 

3, ID XI first parameter/ 

3* IDX2 second parameter. 

3.IDX3 third parameter. 

1. has is a work strinq containing the input 

expression and other necessary character 

strings. 

2. 1NTH length of work string, 

2. S actual strinq. 

1. HAA is a one-character-per-e lenient array which is 
defined on top of WAS to allow easy access to a 
sinqle character. 

2. LNTH is number of elements. 

2. A is a one character element. 

FARSEB^LIST is base pointer for PARSED structure. 

PARS_TAB_PTR is base pointer for PAFS_TAB. 

FTAB_INFC_PTB is base pointer for PTAB^INFO. 

PTAB_PTRS_PTF is base pointer for PTAB^PTRS. 

HAS_PTR is base pointer for HAS and HAA. 

INST_1IST_PTF is base pointer for I?!ST_LIST, 

HAS SIZE is set to adlust site of HAS at allocation. 
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TOnC F. 6 - DATA RETRIEYAL 


A. EATA SET BARE: 

SETS Display Format 

B. CHEATED BY: 

SETS (DBSETS) 

C. TYPE OF FILE: 

Terminal Communication 

D. ORGANIZATION: 

Character Screen Display 

E. KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

320 Bytes typical - 40 column, 8 line output area apart 
from the prompting area. 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This is the output created by the SETS command. It is 
a display on the user's screen or typewriter terminal 
of the sets created during the current strategy 
session. 

This display consists of the set number or S-number, 
the number of index references in the set, and the 
expression (including the control field name, if 
applicable) that formed the set. The expression will 
wrap around if it exceeds one line. 

Paging forwards and backwards is available* The word 
* MORE: * will appear at the bottem of the list if there 
is more data forward. 
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SAMPLE OUTPUT: 


ENTER : 

SETS 


SET# 

aa 

XFEPS 

bbtfc 

« 

ti 

it 

EXPRESSION PAGE 1 
cccccccccccccccccccccc 
cccccc 

aa 

-MORE: 

it 

»t 

bbtb 

(FROM: dddddd) cccccc 

$here: 



aa 

bfcbb 

ccc etc, 
ddddad 
-MORE: 

= set number, 

= number of references, 

« expression, 

= control field name, 

* forward continuation indicator 



PAGE 143 


TOHC F.7 - DATA RETRIEVAL 
A. DATA SET BASE: 

DBINIT - Transient Nodule Interfaces 

E. CHEATED BY: 

DBINIT 

C. TYPE OF FILE: 

Table 

D. ORGANIZATION; 

Documentary Table 

E. KEY IDENTIFIES (CONTROL FIELD) 5 
Not Applicable 

F. FECORD LENGTH: 

Not Applicable 

G. E LOCKING FACTOR: 

Not Applicable 

H. PURPOSE : 

The transient module interfaces (see Table 1) 
are the values assigned tc the first parameter 
of every transient module entry. These values 
inform DBINIT, the retrieval subsystem director, 
which modules are to be called next. 

Due to the inability in OS for one transient module 
to call another, the retrieval director has been 
given the logic to perform all inter-transient 
module calls. This is accomplished with a half- 
word (2 bytes) parameter passed to every module 
called by DBINIT (and the TS supervisor for paging 
entry points) . This parameter has two functions. 

On entry the value of this parameter dictates the 
processing flow. Since transient modules have only 
one entry point, what normally would have been 
accomplished with additional entry points is 
provided for with this parameter value on entry. 

On return, this parameter’s value will direct 
DBINIT to call another module in the table with 
or without recall or go cn and prompt the user 
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for the next command. Consider these functions 
separately. 

On Entry: 

All of the retrieval commands except CANCEL 
result in DBINIT calling the entry point so 
indicated in Table 1 with the parameter's value 
of zero (0) . The CANCEL command results in a 
value of 14 for the entry parameter value. 

Since transient modules may only have one entry 
point, their paging entry point must be the 
primary module entry point. Thus, the Terminal 
Support supervisor has adopted a parameter entry 
value of 100 to indicate paginq at the main 
entry. 

Cn Betorn: 

When a transient module (cr any command module 
called by DBINTT) is finished processing, it 
must reset the parameter value to zero (0) before 
returning to prevent DBINTT from calling another 
module. It is recommended that the parameter be 
set to zero (0) immediately upon entry to assure 
its return value in the event of an END or ATTN 
condition being raised. This is also true for 
paging entry point processing. 

When a transient module (cr any command module 
called by DBINIT) desires to call another 
transient module, the parameter will have to be 
set at one of the values in Table 1 to accomplish 
the call by DBINIT. For example, if a module 
wished to call the CANCEL 5EABCH service entry in 
DBEESB, the parameter should be set to 16 and 
then return* When DBEXSE is then called by DBINIT, 
its entry parameter value will remain at 16; 
parameter values remain as returned for any calls 
done by DBINIT as a result of returning parameter 
values. 

If a module performing an indirect call through 
DBINIT wishes to be re-called by DBINIT when the 
subsequent module returns, the returning parameter 
value should be 100 plus the desired entry value in 
Table 1. In the example in the previous paragraph, 
the returning value would be 116. Note that the 
subseguently called module sees a parameter value of 
16 (not 116). On re-call the entry parameter value 
will be zero (cr 14 in the case cf CANCEL) . 

He turning Entry 
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Pata meter 

Point 

Function At Entry 

Value 

Called 



3 

BEXPNC 

primary 

EXPAND command entry 

4 

DESLCTO 

primary 

SELECT command entry 

5 

DBDSP1 

primary 

DISPLAY command entry 

6 

DBSETS 

primary 

SETS command entry 

7 

DEFIES 

primary 

FIELDS rommand entry 

8 

DBFORH 

primary 

FORHAT command entry 

9 

DBSTRT2 


F0RHAT5 command entry 

10 

DBSLCT1 


SEARCH command entry 

1 1 

DBPRNT 

primary 

PRINT command entry 

1 2 

DECOFR 

primary 

CORRECT command entry 

13 

DBEXSR 

primary 

CORRECT command entry 

1 4 

DBPRNT 


CANCEL command entry 

1 5 

DBPRNT 

S number PRINT service entry 

1 6 

DBEXSR 

CANCEL 

SEARCH service entry 

17 

DBDSPLA 

second 

DISPLAY module entry 

18 

DBFORH A 

second 

FORflAT module entry 

(100 

universal 

system paging value at paging entry) 


Table 1* Retrieval Transient Parameter Values 
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TOPIC F. 8 - DATA RETRIEVAL 

A. DATA SET NAME: 

PRINT Data Set Format 

B. CREATED BY: 

PRINT (DEPRNT) 

C. TYPE OF FILE: 

(5) Non-data base file and 
(2) Formatted print-out 

D. ORGANIZATION: 

VS AM 

E. KEY IDENTIFIER {CONTROI FIELD) : 

Not Applicable 

F. PRINT 1INGTH: 

132 Bytes maximum printed plus record length and 
carriage control fields {5 bytes). 

G. BLOCKING FACTOR: 

Block size = 4096 bytes. 

H. P0BPOSE: 

This is an output data set produced by the PRINT 
command. It consists cf line images written usinq a 
PL/I file named PRINTER. At the end of a terminal 
session an OS PRINT lob may be initiated to print the 
data set off-line or a line printer. 

A leader page shows the user’s name and mail stop for 
distribution. Following the output produced for each 
PRINT command is a separator page having 36 dollar 
signs on the first line. 



PAGE 


PRINT Command - LEADER PAGE 

DISTRIBUTE TO: xxxxxxxxx etc. 

hail stop: yvyyyyy etc. 

where: 

. - oser*s name 
• = mail stop 


xxx etc 
yyy etc 
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PRINT Command - TYPICAI FCBMAT 1 PAGI 


PRINT OF SET xx, Format 1* 

aaaaaaaa: ddddddd 
aaaaaaaa: eeeeeee 
aaaaaaaa: fffffff 


where: 

aaaaaaaa = key field name 

d thru f = key value (wraps around tc column 1 if more than 
122 characters). 
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PRINT command - TYPICAL FORMAT 2, 3 or 4 PAGE 


PRINT OP SET xx, FORMAT y, WTVTVTVW vv PAGE wvwwv 

aasaaaaa: d 
bblbbbbb: e 
: f 

cccccccc: gggg 9999 

999999999999999 

999999 


where: 


aa za aaaa 
bbbbttbb 
cccccccc 

a, f 

ggg etc. 
Z73 etc. 
vvv etc. 


field name having a single short element, 
field name having two short elements, 
fieia name having a long element, 
element valne up tc 122 characters {no maximum 
number of elements) . 

379 character element value (no maximum) . 
key field name. 

first 74 characters of key value. 
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TOUC P.9 - DATA RETRIEVAL 

A. DATA SET NAHE: 

EXPTAB - Expand Term Table 

B. CHEATED BY: 

EBXPND 

C. TYPE OF FILE: 

(4) Table 

D. ORGANIZATION: 

PL/I Data Structure 

E. KEY IDENTIFIER (CONTBQI FIELD) : 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

1. EXPTAB EXTERNAL CONTROLLED. 

This table contains a list of alphabetically 
sequential terras taken from an inverted index file 
and information relatinq the terms to reference 
numbers fE-nurabers) used in the SELECT command. 

2. TERHS AREA <1250) . 

This area contains a linked list of terms 
read from the inverted index. 

2. FIFST_PTB POINTER. 

Points to the first term in the linked 
list. 

2. LAST_PTB POINTER. 

Points to the last term in the linked list. 

2. TOP_ETR POINTER 

Points to the first term displayed on the 
current paqe of data. 
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2. BOTTOM-PTR POINTED 

Points to the last term displayed on the 
current page of data. 

2. eirst_b# binary fixed. 

Contains the reference number for the first 
terns in the list. 

2. LAST_E# BINARY FIXED. 

Contains the reference number for the last 
term in the list. 

2. TOP_E# BINARY FIXED* 

Contains the reference number for the first 
term on the current page. 

2. BOTTOM_E# BINARY FIXED. 

Contains the reference number for the last 
term on the current page, 

2. LO_E# BINARY FIXED. 

Contains the lowest valid reference number. 
{Either 1 or the reference number of the 
index origin.) 

2. HI_E# BINARY FIXED. 

Contains the highest valid reference number. 
{Either 999 or the reference number of the 
index end.) 

2, FLD_NAME CHAR (8) VAR. 

Contains the index field name upon which the 
terms have beer expanded, 

I. PL/I DECLARATION 

DC1 1 EXPTAE EXT CONTROLLED, /*DEFINE THE TERM TABLE */ 

2 TERMS AREA (1250), /*TERH STCFAGE AREA */ 

2 FIRST_PTR POINTER, /*FIRST LIST ENTRY POINTER*/ 

2 1AST_PTR POINTER, /*LAST LIST ENTRY POINTER */ 

2 TOP_PTR POINTER, /*FIRST IIKE CN PAGE PTR */ 

2 BOTTOM PTE EOINTEB, /*LAST LINE ON PAGE PTR */ 


2 FIRST F# EIN FIXED, /*FIRST ENTRY »S E# */ 
2 LAST E# BIN FIXED, /*LAST ENTRY’S E# */ 
2 TOP E# BIN FIXED, /*FIRST E# ON PAGE */ 
2 BOTTOM E# BIN FIXED, /*LAST E» ON PAGE */ 
2 LO E# BIN FIXED, /*LCNEST VALID E# */ 
2 HI~E# BIN FIXED, /*HIGHEST VALID E# */ 
2 FLD NAME CHAR (8) VAR ; /^EXPANDED FIELD NAME */ 
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TOPIC F. 10 " DATA RETRIEVAL 

A. DATA SET NAME: 

FLDTAB - Field Name Table 

B. CREATED BY: 

EBPFLDT entry of module EEPAC 

C. TYPE OF FILE: 

(4) Table 

D. ORGANIZATION; 

linear structure containing adjustable arrays. 

E. KEY IDENTIFIER (CONTROL FTELE) : 

FLDTAB is the major structure name. It is the name of 
an external variable containing the data. 

F. BECORD LENGTH: 

Not Applicable. 

G. BLOCKING FACTOR; 

Not Applicable 

H. PURPOSE; 

The field name table FLETAB contains the file name and 
the number of fields available for the user. (The 
count does not include the RECLEN field.) The sites, 
base addresses and names of sequential format 
definition tables are tabulated. The base addresses 
and names of columnar format definition tables are 
tabulated. 
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I. SCHEMATIC DIAGRAM: 

See Fiqure 1 

J. PL/I DECLARATION: 

/* ELDTAB: NASIS SYSTEM FIELD NAME TABLE FOR 

DATABASE-2. 

THIS TABLE IS ALLOCATED <OR FREED AND REALLOCATED) AND 
INITIALIZED BY A CALL TO THE ENTRY POINT DBPFIDT OF 
MODDLE DEPAC. EACH CALL TO THIS ENTRY POINT CAUSES THE 
ENTIRE TABLE TO BE RE-INITIALIZED TO THE VALDES FOR THE 
CURRENTLY SPECIFIED EATAEASE FILE, THE VALUES WILL BE 
ADJUSTED TO REFLECT THE DATA AVAILABILITY BASED UPON 
THE SECURITY CODE ENTERED EY THE TTSER. */ 


DECLARE 

1 FLDTAB EXT CONTROLLED, 

3 DATAPLEX CHARACTER (8) , 
3 FIELD, 

5 # FIXED BINARY, 

3 SEO FORMAT (25) , 

5 f’FIXED BINARY, 

5 BASE POINTER, 

5 NAME CHARACTER (8) , 

3 COL FORMAT (25) , 

5 BASE POINTER, 

5 NAME CHARACTER (8) ; 


/♦NASIS FIELD NAME TABLE */ 

/♦THE DATABASE FILE NAME V 

/♦THE DATABASE FID NAMES */ 
/♦TEE NUMBER OF FIELD ♦/ 
/♦NAMES IN THE TABLE */ 

/♦SECUENTIAI FORMAT INDEX*/ 
/♦TEE NUMBER CF FIELD */ 
/♦NAMES IN THE FORMAT */ 
/♦THE FCRMAT DESCRIPTION */ 
/♦TABLE ADDRESS */ 
/♦THE NAME ASSIGNED TO */ 
/♦THIS FORMAT (OPTIONAL) */ 

/♦COLUMNAR FORMAT INDEX */ 
/♦THE FORMAT DESCRIPTION */ 
/♦TAELE ADDRESS */ 
/♦THE NAME ASSIGNED TO */ 
/♦THIS FORMAT (OPTIONAL) */ 


K. FIELD DETAILS: 

DATA BASE - has the name of the current dataplex. 

FIELD.# - the number of field names excepting RECLEN. 

SEQ_FORM AT - an array serving as a directory of the 
sequential format definition tables. The first 
four entries are posted by BDEPAC to overlay 
FIELD. NAME beginning with FIELD. KEYNAME as shown 
in Paragraph I, The remaining entries are posted 
by RDBEORM to refer to dynamically allocated 
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sequential format definition tables. 

SEQ_FOBMAT. # - the number of field names in a 

sequential format definition table. 

SEQ_FOBMAT. BASE - the address of a sequential format 
definition table or a HULL pointer value if it is 
undefined or the formats 1 through 5. 

SEQ_FOBMAT. NAME - the name assigned to a sequential 
format cr blanks. 

COL_FOBHAT - an array serving as a directory of the 
columnar format definition tables. The entries 
are posted by BDBFOBM to refer to dynamically 
allocated columnar format definition tables. 

CCL^FOBMAT. BASE - the address of a columnar format 
definition table or a NULL pointer value if it is 
undefined. 

COL_FOBMAT. NAME - the name assigned to a columnar 
format or blanks. 



/ 5 ' 5 " 



SEQUENTIAL 
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FORMATS 
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ADDR * 

NAME 
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NULL 
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Figure 1. Schematic Diagram of FLDTAB 
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TOnC F. 1 1 - DATA RETRIEVAL 

A. DATA SET NAME; 

FORMATS Display Format 

B. CREATED BY: 

Formats - DBSTRT 

C. TYPE OF FILE: 

Terminal Display (Pageable) 

D. ORGANIZATION: 

Not Applicable 

E. KEY IDENTIFIER (CONTROL FIELD) : 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This terminal display is created to display the names 
of the formats currently available to him, A title, 
identifying the display, is generated, followed by the 
format names. The eight character names are sorted 
into alphabetic segnence, taaqed with an asterisk if 
the format is in core, separated by a blank and grouped 
into a SCRNWTH size line before they are written to the 
display. 
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TOPIC F.12 - DATA RETRIEVAL 


A. DATA SET NAME: 

SETAB Sets Table 

B. CREATED BY: 

BBINIT and modified by DBSETU 

C. TYPE OF FILE: 

Table 

D. ORGANIZATION: 

PL/I Data Structure 

E. KEY IDENTIFIER {CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

1, SETAB EXTERNAL CONTROLLED. 

This structure contains the sets, i.e., current 
strateqy, that the user is creating and associated 
information. 

2. CURRENT.# BINARY FIXED {15,0). 

This is the value of the last set number that was 
created. 

2. SET (0:99), 

There is one set created for each select, search 
and 1IHIT COMMAND. 

3. POINTER POINTER. 

There is a pointer to a list of keys for 
every set that is created. POINTER (J) 
points to the list for SET (U) • 

3. SIZE BINARY FIXED (31,0). 

This is the number of keys associated with 
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the corresponding set nntnfcer. 

3. TYPE CHARACTER (1). 

This is the SHEFILE SDEFIX that describes the 
origin of the keys in the set. 

I. PL/I DECLARATION: 

/* NASIS SYSTEF SET TAELE */ 

DCL 1 SETAB EXT1NL CONTROLLED, /* DEFINE THE SET TAELE */ 

2 CtJRRENT_t BIN FIXED (15,0), /*LAST ASSIGNED SET NOMBES */ 

2 SET (0:99), /*DEFIKE THE SET ENTRIES */ 

3 POINTER PTR, /*THE SET LIST POINTER */ 

3 SIZE BIN FIXED (15,0), /♦THE SIT SIZE (# OF KEYS) ♦/ 

3 TYPE CHAR ( 1) ? /*THE SET TYPE (SDEFILE ID)*/ 
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TCKC F . 13 - DATA RETRIEVAL 


A. CATA SET NAME: 

USERTAB User Data Table 

B. CREATED BY: 

BDBWTT 

C. TYPE OF FILE: 

Table 

D. ORGANIZATION: 

PL/I Data Structure 

E. KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G* BLOCKING FACTOR: 

Not Applicable 
H. PURPOSE: 

1. DSERTAB EXTERNAL CONTRCIIED. 

This structure contains user oriented and status 
information useful to all NASIS sub-systems. 

2. NASIS — ID CHARACTER (8) VARYING. 

This field contains the id specified by the 
user when initiatinq his NASIS session. 

2. SECURITY CHARACTER (8) VARYING. 

This field contains the user's roost recently 
specified security code, i.e. his PASSWORD at 
loqcn or in respond to a SECURE Command. 

2. OHNEF_IE CHARACTER (8) VARYING. 

This field contains the ID associated with 
the owner of the file specified by the 
user. 

2. STRATEGY CHARACTER (16) VARYING, 

This field contains the name of the strategy 
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in the event of a RERUN. 

2. TASK_ID BIBABY FIXES (31,0). 

This'' field contains the task identification 
number assigned to the user at logon time. 

2. SEQUENCE BIN ABY FIXED (15,0). 

This field contains a sequence number used by 
the system in defining unique ddnames to 
dynamically specified files. 

2. BITS. 

The status of the user’s session is reflected 
by the settings of the following bit 
switches. 

3. MTTFLAG BIT ( 1) . 

Describes whether the task is running 
under HTT or not. 

3. DISABLED EIT(1). 

Defines the status of attention 
interupts. 

3. RETRIEVE EIT(1). 

Describes whether the task is running 
under the retrieval system or not, 

3. RESTART BIT ( 1 ) . 

Describes whether the session is a 

restart. 

3. RERUN BIT (1) . 

Describes whether the session is a 
rerun. 

3. TESTHODE BIT ( 1) . 

Describes whether the session is 

productive or a debugging run. 

3. CONVFLAG BIT(1). 

Describes whether the task is 
conversational cr not. 

3. RECALL BIT (1) . 

Describes whether the last program is to 
be recalled. 

X. PL/I DECLARATION: 

/* BASIS SYSTEM USER DATA TAB1E */ 


ECL 



PAGE 161 


} USERTAB EXT CONTROLLED , 

2 NASISJtD CHAR fB) VAR, 

2 SECURITY CHAR (8) VAR, 

2 C1NEB ID CHAR (8) VAR, 

2 STRATEGY CHAR 116) VAR, 

2 TASK_ID BIN FIXED{31,0), 

2 SEQUENCE BIN FIXED<15,C», 
2 BITS, 

3 HTTFLAG BITfl), 

3 DISABLED BITfl) , 

3 RETRIEVE BIT{1) , 

3 RESTAPT BIT (1) , 

3 RERUN BIT (1) , 

3 TESTHODE BITfl), 

3 CONVFLAG BIT<1) , 

3 RECALL BITfl) ; 


/♦NASIS USER DATA TABLE */ 
/♦USER'S IDENTIFICATION ♦ / 
/♦USER'S SECURITY CODE ♦/ 
/♦FILE OWNER'S IDENTIFIER */ 
/♦STRATEGY NAME FOR RERUN ♦/ 
/♦TASK IDENTIFICATION # ♦/ 
/♦DDNAHE SEQUENCE NUMBER ♦/ 
/♦SYSTEM STATUS FLAGS */ 
/♦'1'=IN MTT MODE */ 
/♦•1»=ATTN»S DISABLED ♦/ 
/♦• 1»=RUNNING RETRIEVAL ♦/ 
/♦ ' 1 ' = IN RESTART MODE ♦/ 
/♦• 1 * =IN RERUN MODE ♦/ 
/♦ ' 1 *=NC STRATEGY SAVING ♦/ 
/♦' 1'=CCNVERSATICNAL ♦/ 
/♦»1'=RECALL LAST PROGRAM ♦/ 
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TOPIC F.14 - DATA RETRIEVAL 

A. DATA SET UAH!; 

EXPLAIN Display Format 
5. CHEATED BY: 

EXPLAIN (message, RESPONSE and term options) - DBEXPL 

C. TYPE OF FILE; 

Terminal Display (Pageable) 

D. ORGANIZATION: 

Not Applicable 

E. KEY IDENTIFIER (CONTROL FIELD); 

Not Applicable 

F. RECORD LENGTH; 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This terminal display is created to display to the user 
the results of his message response or term 

explanation. The date will be written to the screen as 
read from the message file with no indentation or data 
tagging, but with word-break specified. 
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TOHC F * 15 - BATA RETRIEVAL 

A. BATA SET NAME: 

SPRNTAB - S# PRINT- parameter table 

B. CREATED BY: 

SEIECT (search option) - DESLCT 

C. TYPE OF FILE: 

Table 

D. ORGANIZATION: 
linear structure. 

E. KEY IDENTIFIER (CONTROL FIELD) : 

SPRNTAB is the major structure name: it is the name of 
the control section containing the data. 

F. RECORD LENGTR: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This table contains a set of PRINTparameters saved at 
the time a user issued a PRINT on an S#» Since S#*s do 
not refer to a specific list of keys, the actual PRINT 
is not acted upon until after the search execution. At 
that time BEBXSR calls DBPRNT to perform the PRINT 
wherein the SPRNTAB is referenced for the PRINT 

parameters. 

I. SCHEMATIC DIAGRAM: 

See Figure 1 of the SRCHTAB Data Set Specification. 

J. VARIABLE DETAILS: 

1. SPRNTAB is a table of record parameters of an 

S#. 

3. FORMAT is a table of record format 

parameters. 
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5. TYPE 


5. FIRST 
5, LAST 

HEXT_SPRNTAE 

structure. 


is a pointer to next SPBNTAB 
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TOPIC F» 16 - DATA RETRIEVAL 

A. DATA SET NAME; 

SEQ__FOEM - Sequential Format Definition Table 
S« CREATED BY: 

DBPFIET entry DBPAC (formats 1-5) 

DBFORN (formats 6-25) - tv the EORHAT command, 

C. TYPE OF FILE: 

(4) Table 

D. ORGANIZATION: 

Adiustable linear array of 8-character field names. 

B. KEY IDENTIFIES (CONTROL FIELD): 

SEQ_FOBM is the tnaior structure name, 

F. RECORD LENGTH: 

Not Applicable 

G. ELOCKING FACTOB: 

Not Applicable 

H. PURPOSE: 

A sequential format definition table, SEQ_FORH, 
contains a list of the names of the fields in a 
sequential format for use by the DISPLAY and PRINT 
commands. The key field name is always the first in 
the list. The number cf names in the list and the base 
address of the list is posted in FLDTAB. SEO_FORMAT. #. 
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I. PL/I DECLARATION: 

DECLARE 

1 SEQ_FORM BASED (SEQ_EASE) ,/* SEQUENTIAL FORMAT SPECS */ 


3 FIELD 1 , /* OVEEI AID BY FIELD (1) V 

5 AFIELDS FIXED BIN, /* NOT USED */ 

5 PAD CHAR {6), /* FILLER TO CHAR (8) */ 

3 FIELD (2: I 

REFEP (SEQ_FOBM. IFIILDS ) ) ,/* NOT USED */ 

5 NAME CHAR (8); /* NAME LIST */ 
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TOPIC F. 17 - DATA RETRIEVAL 

A. DATA SET NANE: 

VALOTAB - a linear search table of test values 

B. CREATED BY: 

SELECT (search option) - D8SLCT 

C. TYPE OF FILE: 

Table 

D. ORGANISATION: 

Linear structure* 

E. KEY IDENTIFIER (CONTROL FIELD): 

VALOTAB is the major structure name; it is the name of 
the control section containing the data. 

F. RECORD LENGTH; 

Not Applicable 

G. BLOCKING FACTOR: / 

Not Applicable 

H. PURPOSE: 

This table contains the number of and the pointers to 
the test values associated uith an S#. Each pointer 
points to a based structure containing the value length 
and the value string, called VA1UE. 

I. SCHEMATIC DIAGRAJ1: 

See Figure 1 of the SHCHTAE Data Set Specification. 

J. VARIABLE DETAILS: 

1. VALU_# is set to ad lust the size of the VALUPTB 
array in VALOTAB. 

1. VAIUTAB is a table of pointers to values. 

3. #0F is number of pointers in this table. 

3, VALOPTR is an array cf pointers to values. 
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1. ¥ALUB_SI2E is set for siv.e of value at 

allocation. 

1. VRIDE is a table containing a value to be used 

during search. Pointer is in VALUTAB. 

3. SIZE is lenqtb of value. 

3. X is actual value. 
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TOPIC F. 18 - DATA RETRIEVAL 

A. IATA SET NAHE: 

SRCHTAB - linear Search Table cf Pseudo-sets 

B. CREATED BY: 

SELECT (search option) - CBSLCT 

C. TYPE OF FILE: 

Table 

D. ORGANIZATION: 

Linear structure containing arrays. 

E. KEY IDENTIFIES (CONTROL FIELD) : 

SRCHTAB is the ma-Jor structure name; it is the name of 
the control section containing tie data. 

F. RECORD LENGTH: 

Not Applicable. 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The linear search table cf pseudo-sets, SRCHTAB, 
contains pointers to the ENTRYDEF structure allocated 
for each defined Si, whether a PRINT is to be performed 
on any S#, and various control snitches used during the 
search execution between DBEYSR and DBSLCT 
interactively. 

I. SCHEMATIC DIAGRAM: 

See Figure 1 

J. VARIABLE DETAILS: 

1. HAX_S is the maximum allowable pseudo-set 

number. 

1. SRCHTAB is the main search table. 

3. CURRENTS# is the last pseudo-set number 
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assigned, 

3, SRCH_IN_P BOG BESS is a hit on if a search is 

being executed, 

3, IFSC is set on if any pseudo-set is to be 
printed, 

3. SiCTBTRfl is set on ty DBFXSB before a 

transient call to BESICT as a return flag. 

3, PRNTBT8N is set on by CBEXSR before a 

transient call to DBPENT as a return flag, 

3, SLCT_EBBOR is a bit cn if errcr occurs in 
SEIECT during execution of search. 

3. SLCT_FISISH is a bit on if all SEIECT 

functions are complete durinq execution of 
search. 

3. DEFPTft is an array of pointers which point to 
a EHTBYDEF structure for each defined Si. 



SRCHTAB 


ENTRY DEF 


/ 7 / 



SEARCH 

EXECUTION 

DATA 

v PARSED TABLE 

PARSED PTR 

/ 

N VALUTAB 

VALUES PTR 

/ 

S // ENTRY 

EXPRESSION PTR 

>SCB 

LIST PTR 



S # ENTRY 


EXPRESSION SIZE 
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VALUTAB 


NO. OF VALUES 
VALUE PTR: 



VALUE SIZE 
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Figure 1 


Schematic Diagram of Search Tables 
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TOPIC F.19 - DATA FETBIEV AL 


A. DATA SET NAME: 

COL^FORM - Columnar Format Definition Table 

B. CHEATED BE: 

DBFORH - the FORMAT command 

C. TYPE OF FILE: 

14) Table 

D. ORGANIZATION: 

Structure containing miscellaneous items, a linear 
array, and an adjustable array cf structures, 

E. KEY IDENTIFIER (CONTROL FIELD) : 

COL_FORM is the major structure name, 

F. RECORD LENGTH: 

Not Applicable, 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

A columnar format definition table, COt^FORH, contains 
coded specifications for a columnar display. It is 
used by the DISPLAY and PRINT commands and may be 
revised by the FORMAT command. The optional line for 
the page number, lines for titles, and lines for 
headers hold literal text for output. For each field 
specified, the field rame, column, uidth, summary 
requirements, tally, and summation values are carried. 
(Average is not carried in CCI_FCRM; it is computed in 
DISPLAY or PFINT.) 

I. FL/I DECLARATION: 


DEC LARE 


1 CCL FORM EASED (COL BASE) , 

/♦COLUMNAF FORMAT SPECS 

*/ 

3 

LINESIZE FIXED BIN(31), 

/♦SCRNCCI OR 132 

*/ 

3 

RECORD COUNT FIXED BIN (31) 

, /*IN IT (C) 

*/ 

3 

TOP, 




5 (PAGE#, 

/♦I OR 0 LINES 

*/ 
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♦TITLES, /*0 OF MORE LINES */ 

♦HEADERS, /*Q CF NCR! LINES */ 

DEFAULT HDR) FIXED EIN,/*C CR RELATIVE HEALER LINE*/ 
5 LINE{10)“CHAR (132) , 

3 COL GIVEN BIT ( 1) , /*1: FIELD COLUMNS GIVEN */ 

/*0 : FIELD COLUMNS DEFALTD*/ 

3 # FIELDS FIXED BIN, 

3 FIELD < I HEFER (COL_FORM, tFIELES) ) , 

5 NAME CHAR (8), 

5 COLUMN FIXED BIN, /*FOB TRUNCATION INDICATOR*/ 

/♦USE COLUHN+ 1 • • « FOB VALUE*/ 


5 WIDTH FIXED BIN, 

/♦WITHOUT 

*/ 


/♦TRUNCATION INDICATOR 

*/ 

5 ELEMENT LIMIT FIXED BIN, 

/♦FOR RETRIEVAL 

*/ 

5 ELEMENT TALLY, 



7 REQUIRED EIT(1), 

/*IN3T { • 0 * B) 

*/ 

7 # FIXED BIN (31) , 

/♦INIT (3) 

*/ 

5 ELEMENT SUM, 



7 REQUIRED BIT(1), 

/♦IN IT (*0*0) 

*/ 

7 ZONED BIT ( 1) , 

/•Is ZONED VALUE (INIT) 

*/ 


/*0: BINARY VALUE 

*/ 

7 VALUE FLOAT BIN (53), 

/♦INIT (0) 

*/ 

5 ELEMENT AVERAGE REQUIRED 


BIT (1) ; 

/♦INIT ( ' 0 f B) 

*/ 
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TOFIC F. 20 - DATA RETRIEVAL 

A. DATA SET NAME: 

FIELDS Display Format 

B. CREATED BY: 

FIELDS - DBFIDS 

C. TYPE OF FILE: 

Terminal Display (Pageable) 

D. ORGANIZATION: 

Not Applicable 

E. KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This terminal display is created to display the names 
of the fields available to him from the current file. 
A title, identifying the display, is generated, 
followed by the field names. The eight character 
names, flagged by an asterisk, if indexed, and 
separated by a blank, are grouped into SCRNHTH size 
lines before they are written to the display. As each 
subfile is encountered, a heading, identifying it and 
its control field, is generated. 
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TOPIC F . 2 1 - DATA RETRIEVAL 

A. EATA SET NAME: 

S#ENTRY - S# Expression Eata Table 

B. CREATED BY: 

SELECT (search option) - EBSLCT 

C. TYPE OF FILE: 

Table 

D. ORGANIZATION: 

Linear structure. 

E. KEY IDENTIFIER (CONTROL FIELD) : 

StENTRY is the malor structure name; it is the name of 
the control section containing the data. 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This table contains the actual screen imacre expression 
for each defined Si. This table is allocated by DBSLCT 
and referenced by DBEXSR and DBSETS. 

I. SCHEMATIC DIAGRAM; 

See Figure 1 of the SBCHTAE Data Set Specification. 

J. VARIABLE DETAILS: 

1. SfENTRY is a structure of S# expression 
displayafcle information. 

3. EXEBSN_SIZI is the allocated size of the 
variable part of the expression for this 
5 #. 


3. The remaining variables contiguously 
represent the S# expression. 
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TOPIC F , 22 - DATA RETRIEVAL 

A. EAT A SET NAHE: 

ENTRYDEF table of S# information for linear search 

B. CHEATED BY? 

SELECT {search option) - CESLCT 

C. TYPE OF FILE: 

Table 

D. CBG ANIZATIONt 
Linear structure. 

E. KEY IDENTIFIER {CONTROL FIELD) : 

ENTRYDEF is the major structure name; it is the name of 
the control section containing the data. 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This table contains associated information per S* 
posted at definition time by IBSLCT and during the 
search execution by DBEXSfi. Contained within ENTRYDEF 
are pointers to the SPRNTAB structure of PRINT 
parameters for an Si, to the temporary list keys, to 
the parsing information, to the VALtlTAB structure of 
test values, and the S# expression in S#ENTR Y . 

I. SCHEHATIC DIAGBAH: 

See Fiqure 1 of the SRCHTAB Data Set Specification. 

3 , VARIABLE DETAILS: 

1 EXPRS 8_LEN is the dynamic length of a particular S# 
entry’s expression; see S#INTRY. 

1 ENTRYDEF is an array with detailed pseudo-set 
information: 
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5 DEIITED is a bit on if this pseudo-set has 
been deleted. 

5 ACTIVE is set on by CBIXSR during the search 
execution if the S# is involved in the 
current search pass. 

5 RECORD is a pointer used for the parameters of 
these pseudo-sets t.o be RECOFDed after a 
search execution. This points to SPFFTAB 
structure, 

5 CHEATED_B7 is two bits identifying the type of 
SEIECT command used to create this 
pseudo-set where, 

7 SELECT_IE tit is on if the search option 
was used, or 

7 SELECT_EOOI bit is on if the boolean 
option was used. 

5 REE_SET is a structure used for identifying 

the searching universe lor set) wherein, 

7 PTB is pointer to set to search within 

7 S# is a bit on if the set to be searched 
is a pseudo-set. 

5 C0B8ES_SET# is the value of the set resulting 
from this useudo-set. 

5 LIST_PNTB is a pointer to the search list 

structure for this pseudo-set, 

5 PARSED is a pointer to a parsing structure for 
toolean-created pseudo-sets. 

5 FIEIDMAM is the field name to be tested. 

5 CP_CODE is a value of the operator to be used 
for the test, as follows: 

1. qreater than 
2* less than 

3 . equa 1 

4. greater than or equal 
5 less than cr equal 

6. not equal 

7. between 

8. containing 
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5 VALUES is a pointer to test values; 
points to VALU7AB. 

EXFB_PTfl is a pointer 
structure. 


this 


5 


to the SiENTBY 
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TQEIC G.1 - USAGE STATISTICS 

A. DATA SET BABE: 


STATIC Data Set Descriptors 

B. CREATED BY: 

Command System and Maintenance System 

C. TYPE OF FILE: 

Dataplex 

D. ORGANIZATION: 

ISAM 

E. KEY IDENTIFIER (CONTROL FIELD) : 

See PURPOSE discussion of KEY. 

F. RECORD LENGTH: 

UOOQ/V 

G. ELOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

Maintain system statistics: 

1. Retention of Statistics 

In order to maintain usage statistics a file is 
required* To do so efficiently the file will be a 
simple ISAM data set. It has been shown that 
undue overhead of EBP1/1 causes modules accessing 
data using these facilities to run 5 to 10 times 
longer. Since the gathering of statistics should 
ideally not be reflected in the gathered 
statistics a simple file is to be use. The 
standard name for the file is to be NASIS. STATIC 


2* Accumulation of Statistics 

The STATIC file will be composed of two different 
record types. The data required, and how it will 
be kept, is as follows: 
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a, KEY 

SEPARATE - A single character which sill 
distinguish the record type. A 
value of zero will indicate a 
maintenance record. A value of one 
will indicate a retrieval record. 

IDENTIFIER - Fcr maintenance records, it will 
be the data base name padded with 

dollar signs. For retrieval 

records, it will be the NASIS-ID 
padded with asterisks (to eight 
characters) . Appended to the 
NASIS-ID will be the data base 

owner* s ID, the file where this 

field exists, and the field name. 

b. The maintenance fields are as follows: 

TOTALTRN - the number of transactions 
processed. 

ANCOONT - the number of records on the 
anchor file. 

TOTALRUN - the number of maintenance runs. 

HAINDATE - the date of each maintenance run: 
element 1 will be the dates of the 
data base creation, elements 2 
through 13 will be the dates of 
individual maintenance runs. After 
the dates have been filled, the 
second one will be dropped and the 
newest date added on the end. This 
field is treated as a 13 element 
char (6) array, 

TFANCNEW 

TRANCDE1 

TRANCDPD 

TRSOENEW 

TRSOBDEL 

TSSDBDPD 


TRINYNER 
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TRINVDEL 

TBINVTJPE 

- where TG indicates transaction; 
ANC, the anchor file; SUB, the 
suhrecord files; ISV, inverted 
files; NEW, new records; DEL, 
deletions; and UPE, updates. 

These are the transaction count fields 
required for maintenance statistics. These 
fields will be used in coniunction with the 
data field. These fields are treated as 13 
element fixed binary <31 arrays. The 
elements will correspond directly with the 
date field and will represent the number of 
that given type of transaction encountered 
during the maintenance run. When all of the 
elements are present, the next count inserted 
will cause the second count to be added to 
the first element and the second element 
dropped. The newest element will go on the 
end. 

The retrieval fields are: 

CONNTIHE - the connect time 
CPOTIME - the CPU time 
TOTALES - number of sessions 


STGATLEN - the strategy length 


STB ATSTB - the number 

cf 

strategies 

stored 

STASDTE - the date 
session 

cf 

the 

first 

terminal 

LASTDATE - the date 
session 

cf 

the 

last 

terminal 


NOTE; The eight fields above are to be 
accumulated for each NASIS-ID, There 
may be many records for each NASIS-ID; 
therefore, these statistics will be kept 
in a special record. The CWNEB-ID and 
the inverted file name in this special 
record will be equal to blanks. 

♦EXPANDS - number of EXPANDS per session 
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#SE1ECTS - number of SEIECTs per session 

iSEABCHS - number of SEABCHes per session 

fCOBECTS - number of CCRRECTs per session 

SESSDATE - the date of each session 

These fields are all treated as 13 element arrays. 
The first element represents an accumulator and 
contains the total for all occurrences up to the 
SESSDATE, which is the date of the last elected 
session of the list (the earliest session). 
Regardless of the actual number of sessions within 
one calendar day, the statistics will be 
accumulated as if there were only one session. 

All of the maintenance statistics will be 

automatically updated with the load/Create program 
and the Maintenance Mainline proqram. If the data 
base cwner wishes to modify certain data 
pertaining to the maintenance statistics, he has 
the ability to use the CORRECT command to update 
the STATIC data base interactively. 

All of the retrieval statistics will be 

automatically updated with the FINISH module of 
the command system. If required, at maintenance 
time, a ’snapshot* of the statistics will be 
printed. If the data base owner (system manager) 
wishes to modify certain data pertaininq to the 
retrieval statistics, he has the ability to use 
the CORRECT command to interactively update the 
STATIC data base. 
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APPENDIX A. 


The STATIC file is composed of the following fields: 

A. KEY 

1. Alphanumeric. 

2. Fixed field. 

3. length cf 32 bytes, 

a. First byte is maintenance or retrieval record 
indicator. 

1. 0 = maintenance record. 

a. data base name left -justified. 

b. remainder padded with *$*s. 

2. ^ - retrieval record. 

a. NASIS-ID//OOEB-ID//file of data 
base//field name. 

1. The NAS IS -ID is eight 
characters long and padded 
with «*«s. 

2. The CN NEB-ID is really a 
TSS-IB, eight characters long 
and padded with •* , s. 

3* The file name is that file on 
which the field for statistics 
is being gathered. 

4* The field name is the name of 
field cn which statistics are 
being gathered. 

B. TOTALTRN (Maintenance) 

1. Alphanumeric 

2. Fixed field 

3. length cf 6 bytes 

4. Contains the total number cf transactions. 

C. ANCOUNT (Maintenance) 

1. Alphanumeric 

2. Fixed field, 

3. length of 6 bvtes. 

4. Contains number of records cn the anchor file, 

D. TOTALBON (Maintenance) 

1. Alphanumeric. 

2. Fixed field. 

3. length of 3 bytes. 

4. Contains the number of maintenance runs. 

E. MAINDATE (Maintenance) 

1. Alphanumeric. 

2. Fixed element. 

a. Total of 13 elements, each 6 bytes long. 
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b. In the form MM/DD/YY to indicate the month, 
day, and year of each maintenance run# 
Element 1 will contain the data base creation 
date while elements 2-13 will be the dates of 
the individual maintenance runs* After the 
dates have been filled, the second one will 
be dropped and the newest date added to the 
end. 

3. Total length of 78 bytes* 

F. TRANCNEW (Maintenance) 

1* Alphanumeric. 

2. Fixed elements. 

a* Each 4 bytes lcng. 
b. 13 elements. 

3. Total length of 52 bytes. 

G. THANCBEL (Maintenance) 

1. Alohanumeric. 

2. Fixed element. 

a. Each 4 bytes long, 
t. 13 elements. 

3. Total length of 52 bytes, 

H. TRANCTJPD (Maintenance) 

1. Alphanumeric. 

2. Fixed element. 

a. Each 4 bytes lcng. 

b. 13 elements. 

3. Total length of 52 bytes. 

I. TRSOBNEW (Maintenance) 

1. Alphanumeric. 

2. Fixed element. 

a. Each 4 bytes lcng. 

b. 13 elements, 

3. Total length of 52 bytes. 

j. TRS0BDE1 (Maintenance) 

1. Alphanumeric. 

2. Fixed element. 

a. Each 4 bytes lcnq. 

b. 13 elements. 

3. Total length of 52 bytes. 

K. TRSUBUPD (Maintenance) 

1, Alphanumeric, 

2, Fixed element, 

a. Each 4 bytes long. 

b. 13 elements. 

3, Total length of 52 bytes. 

1 , TRINVNEH (Maintenance) 
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1. Alphanumeric. 

2. Fixed element. 

a. Each 4 bytes long. 

b. 13 elements. 

3. Total length of 52 bytes. 

M. TBINVDEL (maintenance) 

1. Alphanumeric. 

2. Fixed element. 

a. Each 4 bytes long, 
fc. 13 elements. 

3. Total length of 52 bytes. 

N. TBINVUPD (Maintenance) 

1. Alphanumeric. 

2. Fixed element, 

a. Each 4 bytes lcng, 

b. 13 elements. 

3. Total length of 52 bytes, 

NOTE: Items F throuqh N are transacticn count fields 

for the maintenance statistics and correspond directly 
to MAINDATE. 

TB indicates TRANSACTION 
ANC indicates ANCHOR 1ILE 
INV indicates INVERTFD FILE 
NEW indicates NEW PECO EDS 
DEL indicates DELETIONS 
UPD indicates UPDATES 

O. CONNTIME (Retrieval) 

1. Alphanumeric, 

2. Fixed field. 

3. Length cf 10 bytes. 

4. Contains connect time. 

P. CPUTIME (Retrieval) 

1. Alphanumeric. 

2. Fixed field. 

3. Length of 10 bytes. 

4. Contains total CPO time. 

Q. TOTALSES (Retrieval) 

1, Alphanumeric. 

2. Fixed field. 

3. Length of 4 bytes. 

4, Contains total number of sessions. 

B. STBATLEN (Retrieval) 

1. Alphanumeric. 

2. Fixed field. 

3. Length of 4 bytes. 
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4. Contains strategy length. 

S. STRATSTR (Retrieval) 

1. Alphanumeric. 

2. Fixed field. 

3. Length cf 4 bvtes. 

4. Contains number of strategies stored. 

0. STARTDTE (Retrieval) 

1. Alphanumeric, 

2. Fixed field. 

3. Length cf 6 bytes. 

4. Contains date of first terminal session. 

V. LASTDATE (Retrieval) 

1. Alphanumeric. 

2. Fixed field. 

3. Lenqth cf 6 bytes. 

NOTE: The riqht fields above are accumulated for each 
NASIS-ID. The owner-ID and the file-name have no 
meaning. 

Therefore, the KEY of the record where these statistics 
are meaningful will be composed of an owner-ID and a 
file-name which are blank. 

H. #EXPANDS (Betrieval) 

1. Alphanumeric. 

2. Fixed element. 

a. Each 4 byters long. 

b. 13 elements. 

3. Total lenqth of 52 bvtes. 

X. iSELECTS (Retrieval) 

1. Alphanumeric. 

2. Fixed element. 

a. Each 4 bytes leng. 

b. 13 elements. 

3. Total lenqth of 52 bytes. 

Y. fSEABCHS (Retrieval) 

1. Alphanumerics. 

2. Fixed element. 

a. Each 4 bytes lcnq. 

b. 13 elements. 

3. Total length of 52 bytes. 

Z. iCOBECTS (Retrieval) 

1. Alphanumerics. 

2. Fixed element. 

a. Each 4 bytes lcnq. 

b. 13 elements. 
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3. Total lenqth of 52 SESSDATE (Retrieval) 

SESSDATE (Retrieval) 

1. Alphanumerics . 

2. Fixed element* 

a« Each 6 bvtes lcng. 
b. Maximum of 13 elements. 

3. Total length of 78 bytes. 

NOTE: In the last 5 fields there is a one for one 

correspondence in the elements. 

first SESSDATE - the date of the newest session in 
the accumulated counts. 

first (others) - the accumulated counts on all 
indicated. 

Regardless of the actual number of sessions within one 
given calendar day, the statistics will be accumulated 
as if there were only one session. 

When (during UPDATE) a record is encountered with the 
variable fields having all 13 elements filled, the 
’snapshot* of the given record will be taken. The last 
12 elements sill then be cleared, by summing them and 
adding them to the first element, the first element 
SESSDATE will be made equal to the last element 
SESSDATE. 
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TOHC G.2 - OSAGE STATISTICS 

A. DATA SET NAME: 

Haintenance Statistics Report Format 

B. CREATED BY: 

STATIC Report (NDBPRNTH) 

C. TYPE OF FILE: 

VS (print) 

D. ORGANIZATION: 

Sequential 

E. FEY IDENTIFIER (CONTROL FIELD) : 

Not Applicable 

F. RECORD LENGTH: 

133 Bytes 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

To display (via listinq) the status of the maintenance 
statistics. 



DATAPLEX 

NAME 

ASRD1$ 


maintenance statistics for systems manager a* 


01/11/73 


TOTAL 

TRNS 


ANCHOR 

RECORDS 

3,132 


NUMBER TRANS MAINTENANCE 
RUNS RUN DATES 


FILEPLEX 

ADDS DELETES UPDATES 


12/19/72 3,132 


SUBPLEX 

ADDS DELETES UPDATES 


PAGE 1 
XPLEX 

ADDS DELETES UPDATES 


FILEPLEX 

TOTAL 


ADDS 

3,132 


DELETES UPDATES 


FOR ALL RUNS 


AVERAGE 


3,132 


PER RUN 
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TOHC G.3 - USAGE STATISTICS 

A. LATA SET SAKE: 

Retrieval Statistics Report Format 

B. CHEATED BY: 

Beport Print (NDBPRNTF) 

C. TYPE OF FILE: 

PS {print) 

D. ORGANIZATION: 

Sequential 

E. KEY IDENTIFIES (CONTROL FIELD) : 

Not Applicable 

F. RECORD LENGTH: 

133 Bytes 

G. ELOCKIFG FACTOR: 

Not Applicable 

H. PURPOSE: 

To display (via listina) the status of the retrieval 
statistics. 



RETRIEVAL STATISTICS 


01/03/73 


NAS IS ID 
NE01 


CONN-TIME CPU-TIME // STRAT 
HR :MM:SC HR:MM:SC:MS SES LENGTH 
0:53:30 0:00:48:790 5 0 


STORED 

# 

. 0 


OWNER 

ID 


SAOWNER 

SAOWNER 

SAOWNER 

SAOWNER' 

SAOWNER 

SAOWNER 

SAOWNER 


FILE 

NAME 


ASRD1$A 

ASRD1$B 

DB2TDBA 

DB2TDEB 

DB2TDBC 

DB2TDBD 

DB2TDBE 


FIELD 

NAME 


AUTHOR 

KEYWORDS 

EMPAGE 

TOTAL CAR 

KIDAGE 

PET 

'SVCDATE 


ACTUAL TOTAL NUMBER OF 
EXP SEL SRCH CORR 


3 0 
13 0 
1 0 
1 0 
1 0 
1 0 
1 0 


0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
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TOHC G.4 - OSAGE STATISTICS 

A. LATA SET SAME: 

Snapshot Statistics Report Format 

B. CREATED BY: 

Snapshot Print (NDBCRKPT) 

C. TYPE OF FILE: 

PS (print) 

D. ORGANIZATION: 

Sequential 

E. KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

133 Bytes 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

To display (via listing) those records which have 
undergone the reinitialisation process. 



SNAPSHOT (CHECKPOINT) OF RETRIEVAL STATISTICS RECORDS BEFORE REINITIALIZATION 

12/18/72 


PACE 1 


LI SR ID CONN- TIME 
HR:MIN:SC 


NEOl :19 :40 


CPU-TIME // STRAT OWNER-ID FIELD 

HR:MN:SC:MS SES LENGTH NAME 

0:00; 12: 399 2 SAOWNER KEYWORDS 


FILE SESSION 9 # // § 

NAME DATE EXPANDS SELECTS SEARCHS CORRECTS 

ASRDI$B 721215 

721215 1 

721215 

721215 

721215 

721215 

721215 

721215 

721215 

721215 

721215 

721215 


721215 


1 
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Tone H. 1 - IMMEDIATE COMMANDS 

A. DATA SET NAME: 

NASIS Message Pile - NASIS. MESSAGES 

B. CREATED BY: 

Not Applicable 

C. TYPE OF FILE: 

ISAM 

D. ORGANIZATION: 

Indexed -Sequential 

E. KEY IDENTIFIES {CONTROL FIELE) : 

The fifteen byte key is composed of the eight byte 
message key concatenated to the seven byte line 
number. 

F. RECORD LENGTH: 

F (160) , key length is 15 with an RKP * 0. 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This data set contains the NASIS system messages used 
by the various modules for pretrptinq and diagnostic 
messages. 
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TOPIC H. 2 - STRATEGY FILE 

A. DATA SET NAME: 

NASIS.STBATEGY 

B. CREATED BY: 

NTST BAT 

C. TYPE OF FILE: 

ISAM 

D. ORGANIZATION: 

Random* File consists of approximately 4000 
records. The first 256 contain bit switches 
flagging which of the remainder are active. The 
next 256 are base records pointing to the first 
of a string of chained data records. 

E. KEY IDENTIFIER (CONTROL FIELD): 

Strategy Name (16 characters) 

F. RECORD LENGTH: 

150 characters 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

Tc store strategies, formats and print 
information created by a NASIS user. 
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TOHC H. 3 - IWBEDIATE COMMANDS 

A. DATA SET SAKE: 

Strategy Display format 

B. CREATED BY: 

DBSTRT 

C. TYPE OF FI1E: 

Screen Display 

D. ORGANIZATION: 

Header = STRATEGY name (centered) 

Data Lines = full width, word split 
Overflow Lines - indented three characters 
Page Overflow = full record 

E. KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

To display the contents of the data lines comprising a 
stored strategy. 
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TOPIC H. 4 - IHMEDIATE COWHANDS 

A. DATA SET NAPE: 

Strategy Names Display Format 

B. CREATED BY: 

NDBSTRT 

C. TYPE OF FILE: 

Screen Display 

D. ORGANIZATION: 

Data Lines = complete 16 character strategy names 
separated by two blanks (as many as will fit on a 
line) . 

E. KEY IDENTIFIER (CGNTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

To display the names of the strategies present in the 
strategy data set. 



TOHC H. 5 - INTERNAL PROFILE TABLE 
A. DATA SET NAHI: 

NASIS. PROFILES 

E. CREATED BY: 

NTSPRO 

C. TYPE OF FILE: 

Sequential Array 

D. ORGANIZATION: 

Sequent-1 (Synonyms) - Sequential 

Sequent-2 (Defaults) - Seauential 

Sequent-3 (Default Data) - Random 

E. KEY IDENTIFIER (CONTROL FIELD); 

Not Applicable 

F. RECORD LENGTH: 

1500 Bytes 

G. B IOCKING FACTOR; 

Not Applicable 

H. PORPOSE; 

To save user defined synonyms and default 
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TOEIC H.6 - IHKEDIATE COWHANDS 

A. DATA SET NAHE: 

NASIS User Prefile Dataset NASIS Profiles 

B. CREATED BY: 

Not Applicable 

C. TYPE OF FILE: 

Members are SAH, PDS containing all BFAH members, 

D. ORGANIZATION: 

Sequential 

E. KEY IDENTIFIER <CCNTBCI FIELD): 

Not Applicable 

F. RECORD LENGTH: 

F (2000) 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

To contain the lists cf user defined synonyms 
defaults for a particular NASISIE, 


and 
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TOHC H« 7 - COMMANDS PCB DATA RETRIEVAL 


A. DATA SET NAME: 

VEBBTAB Table. 

B. CREATED BY: 

The NASIS nodules which prompt for commands. 

C. TYPE OF FILE: 

Table 

D. ORGANIZATION; 

Pt/I Data Structure 

E. KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PORPOSE: 


1. VERBTAB EXTERNAL CONTPOLIED. 

This table contains the information necessary to 
associate a set of valid verbs (commands) and 
their respective entry points. 

2. ^ENTRIES BINARY FIXED. 

This field contains the count of the number 
of valid entries in the list below. 

2. SIZE BINARY FIXED. 

This field contains the count of the number 

of entries that can be contained in the list 

belcw. 

2. SYHEOLIC_ID CHARACTER (8). 

This field contains the default symbol that 

can be used to define user written extentions 
to this list of verbs. 
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2. COMMAND (VEBB_CCUNT) . 

This list is** used to describe the commands 
recognized by the defining module. 

3. NAME CHARACTER (8) . 

This field contains the command name. 

3. ROUTINE CHARACTER {8) . 

This field contains the name of the 
entry point to be called when this 
command is entered. 

1. VESB_COUNT BINARY FITTED. 

This field must be set to the maximum number of 
entries allowable in the verb list, before the 
table is allocated. 

I. PL/I DECLARATION: 

/♦ GENEBAIIZED NASIS SYSTEM VERB TABLE ♦/ 


DCI 1 VERBTAB EXT CONTROLLED, 
2 #_ENTRIES BIN FIXED, 
2 SIZE BIN FIXED, 

2 SYMBOLIC_ID CHAR (8) , 
2 COMMAND {VERB COUNT) , 
3 NAME CHAR (8), 

3 ROUTINE CHAR (8) ; 

DCI VERB COUNT BIN FIXED: 


/♦DEEINE THE VERB TABLE */ 
/♦DEFINE THE CURRENT SIZE ♦/ 
/♦DEFINE THE MAXIMUM SIZE */ 
/♦DEFINE THE DEFAULT TERM ♦/ 
/♦DEFINE THE VERE ENTRIES ♦/ 
/♦DEFINE THE VERB NAME ♦/ 
/♦DEFINE THE ROUTINE NAME */ 

/♦DEFINE THE TABIE SIZE */ 



